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Gedicht-Automat 


Machen Sie Ihren Com- 
puter zum begnadeten 
Dichter. Sie geben ein 
paar Wörter vor und der 
C 64 macht daraus 
Lyrik-Strophen, die sich 
hören und sehen las- 


| sen können. Lyrik 3.0 


— Eine ungewöhnliche 


| aber sehr interessante 
| Anwendung des Mo- 


nats, denn das Pro- 


| gramm erstellt seman- 
| tisch korrekte Sätze mit 


»zufälligem« Sinn. 
Seite 52 


Hypra Platos 


Dieses Platinenlayout- 
System läßt das Herz 
eines jeden Hobbyelek- 
tronikers höher schla- 
gen. Jeder der schon 
einmal Platinen geklebt 
oder gezeichnet hat, 
weiß, wieviel Arbeit und 
Zeit investiert werden 
müssen. Diese Arbeit 
nimmt Ihnen Hypra- 
Platos ab. So können 
auf einfachste Weise 
doppelseitige Platinen- 
layouts erstellt werden. 
Seite 52 


Wettbewerbe 


Es gibt einiges zu ge- 
winnen: Mehrere Fi- 
scher Construktion-Kit- 
Bausätze, Messebesu- 
che und Buchgutschei- 
ne. Bei unserer Ideen- 
parade suchen wir die 
Anwendungen des The- 
mas »Messen — Steu- 
ern — Regeln«. Auch 
die kurioseste und in- 
teressanteste Hardware 
wird belohnt. Preise: 
ein CP 80-X und 

500 Mark bares Geld. 
Seite 172 
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Druckertest: 
Neue Referenz 


Der FX-85 überzeugt 
durch sein Leistungs- 
profil. Er wird unsere 
neue Referenz in der 
Preisklasse über 1400 
Mark. Mit dem JX-80 
kommt endlich Farbe 
aufs Papier. Der MPS 
803 ist der kleinste 
Commodore-Drucker. 
Sie erfahren, warum 
der SP 1000 VC auf der 
Suche nach seiner ei- 
genen Identität ist. 
Seite 38 


Joysticks 

Spielen Sie gerne? 
Dann brauchen Sie 
auch einen guten Joy- 
stick. Eine Marktüber- 
sicht und ein ausführli- 
cher Test ausgewählter 
Joysticks stellt Ihnen 
die Kriterien zur Verfü- 
gung, die Ihnen die 
Kaufentscheidung er- 
leichtern werden. Wir 
'sagen Ihnen, wofür die 
verschiedenen Joy- 
sticks besonders 
geeignet sind. 

Seite 18 


Bilder aus einer 
anderen Dimension 


Daß Mathematik auch 
durchaus künstlerische 
Aspekte aufweisen 
kann, kennt man ja von 
den fantastischen Gra- 
fiken der großen Com- 
puter. Aber was wäre 
der C 64, wenn er das 
nicht auch könnte. Das 
Programm »Apfelmänn- 
chen« erstellt fantasti- 
sche Grafiken aus dem 
Wunderland der 
Mathematik. 

Seite 80 
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Nur Gutes? 


Da hat ein Leser kürzlich 
ein EPROM-Programmier- 
gerät gekauft — und festge- 
stellt, daß sich in einem tol- 
len Gehäuse eine schäbige 
Platine verbirgt, dıe Softwa- 
re ein fremdes Copyright 
trägt und — das Ganze nicht 
funktioniert. Forderung des 
Betroffenen, der sich übri- 
gens nicht nach dem 64’er- 
Test richtete und »schwarze 
Schafe«auch genanntwissen 
wıll:»Der Leserhateinen An- 
spruch darauf, bei Ver- 
gleichstests vor minderwer- 
tigen Produkten gewarnt zu 
werden.« 

Wir verfolgen in der Re- 
daktıion eine klare Linie: Der 
verfügbare Platz soll für Be- 
richte über interessante und 
nützliche Produkte verwen- 
det werden — für etwas, das 
nicht oder offenkundig unzu- 
länglich funktioniert, wollen 
wir nicht auch noch Publicity 
machen. Wegen der schnel- 
len Entwicklung der Compu- 
tertechnik, bekommen wir 
öfter aber auch unausgereif- 
te Prototypen. Ein »Verriß« 
wäreinsolchen Fällen inder 
Regel ungerechtfertigt; wir 
verschieben dann den Test, 
bis eine endgültige Version 
vorliegt. Hin und wieder hat 
da einer Glück, dessen Pro- 
dukt nur so aussieht, wie ein 
Prototyp ... Wir hatten bisher 
den Eindruck, daß sich die 
Zahl der wirklich schwarzen 
Schafe in Grenzen hielt und 
ihre Bedeutung am Markt 
(nicht der Ärger der Betrof- 
fenen!) eine besondere Be- 
rücksichtigung nicht recht- 
fertigte. Anderer Ansicht? 
Dann schreiben Sie uns bitte. 


Michael Pauly, 
Redaktions-Direktor 


VER‘ 


s Ziar 


napp eine Woche lang 

gehörte das Olympia, ein 
Messegelände von der Grö- 
ße eines Fußballfeldes, den 
Computer- und Software-Fir- 
men (Bild ]). Wie schon seit 7 
Jahren trafen sich Englands 
Anbieter um ihre Produkte 
vorzustellen. Die von Jahr zu 
Jahr stets stärker werdende 
Software-Branchehatte dann 
auch die Hardware-Anbieter 
fast verdrängt: Auf gut 80 
Prozent der Ausstellungsflä- 
che gab es die neuesten Pro- 
gramme zu sehen, wobei 
sıch das Angebot beinahe 
nur auf Spiele beschränkte. 
Die Messe wird von der 
PCW (Personal Computer 
World), einer britischen Zeit- 
schrift für Business-Anwen- 
dungen, gesponsort. Da sich 
diese Zeitschrift wenig mit 
Spielen beschäftigt, ist ge- 
plant, im nächsten Jahr die 
Spieleanbieter von der Mes- 
se auszuschließen. 

Da gleichzeitig zur PCW- 
Show in England der Verkauf 
des C 128 beginnen sollte, 
war er natürlich Thema 
Nummer | am Commodore- 
Stand oder sollte es zumin- 
dest sein. Denn Commodore 
England hatte zw ölf 
128-Geräte aufgesäffedoS 
auf elf von ihnen liefen nur 
Spiele im C 64-Modus, so 
zum Beispiel »Way of the Ex- 
ploding Fist« und »Dropzo- 
ne«. Nur Vorankündigungen 
und Prospekte gab es für die 
Floppy 1571 und den Monitor 
1902, Fertiggeräte oder Pro- 
totypen gab es nicht zu 
sehen. Die Auslieferung 
scheint also, zumindest in 
England, noch einige Pro- 
bleme zu bereiten. 

Zwei Programme konnten 
wir auf der Messe ent- 
decken, die den C 128 aus- 
nutzen. Es handelt sich um 
die umgeschriebenen Ver- 
sıonen der C 64-Programme 
»Superbase« und »Super- 
script«, ein Datenbanksy- 
stem und die dazugehörige 
Textverarbeitung. Entwik- 
kelt wurden sie von Preci- 
sıon Software. »Superbase« 
ıst auf dem © 64 immer noch 
die leistungsfähigste Daten- 
bank. Die C 128-Version bie- 
tet noch viele neue Lei- 
stungsmerkmale, darunter 
die 80-Zeichen-Darstellung. 
In Verbindung mit der 157] 
sind die Diskettenzugriffe 
um den Faktor 10 beschleu- 
nigt worden, so daß profes- 
sionelles Arbeiten ohne wei- 


PCW — Computer- 





messe in London 


Zur gleichen Zeit wie die Berliner 
Funkausstellung fand in London die 
größte Computermesse Englands, 


die P 





Bild 1. Ein Blick von oben auf 
das Gedränge am Commodore- 
Stand auf der PCW-Show 


s;nöglich ist. Die Text- 
verarbeitung »Superscript« 
arbeitet wahlweise mit Me- 
nüs oder Direktkommandos. 
Es ist eine Mini-Tabellenkal- 
kulation für Rechnungen im 
Text integriert. Neben allen 
Standard-Befehlen bietet 
»Svuperscript« die 80-Zei- 
chen-Darstellung, enorm ho- 
he Geschwindigkeit und die 
Möglichkeit, Befehlsmakros 
zu definieren. Da beide Pro- 
gramme nur 64 KByte benöti- 
gen, können sie gleichzeitig 
imSpeicher desC 128stehen 
und es kann ohne Datenver- 
lust zwischen ihnen hin- und 
hergeschaltet werden. Na- 
türlich ist auch der Aus- 
tausch von Daten möglich. 
Die Programme sind im Prin- 
zip fertig, befinden sich aber 
noch ın der Testphase. Sie 
sollen noch dieses Jahr in 
England erhältlich sein, die 
Frage nach einem deut- 
schen Vertrieb ist noch nicht 
geklärt. 

Neuheiten auf dem Musik- 
Sektor gab es am Stand von 
Commodore zu sehen. Dort 
war die Firma Music Sales 
Ltd. zu Gast, die sich auf 
Musik-Soft- und Hardware 
spezialisiert hat. Vorgestellt 
wurden zwei Hardware-Er- 
weiterungen mit dazu pas- 


-Show, statt. 


ge u 


[FETFER TE FF en 


Bild 2. Mit dieser Zusatztastur 
und einem Modul im Expansion- 
Port wird der C 64 fast zur pro- 
fessionellen Heimorgel 





Bild 3. In diesem unscheinbaren 
Kasten verbirgt sich der Sound 
Sampler 


sender Software. Das»Sound 
Studio« verwandelt ihren 
C 64 in eine achtstimmige 
Heimorgel mit Rhythmusge- 
rät und automatischer Be- 
gleitung. Die. dazugehören- 
de Software bietet 16 ver- 
schiedene Instrumente, 16 
Rhythmen und 16 Begleitun- 
gen an. Weitere Eigenschaf- 
ten. der Software sind: Auf- 
splitten des Keyboards in 
zwei Hälften, um zwei Instru- 
mente gleichzeitig zu spielen 
und eine Ein-Finger-Melo- 
die-Automatik für den Musik- 
Laien. Zwei Zusätze wurden 
gleich dazu vorgestellt: Ein 
Editor-Programm, um sich 
eigene Sounds zu program- 
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mieren und eine Zusatztasta- 
tur (Bild 2), die der einer 
Heimorgelinnichtsnachsteht. 

Ein echter Hammer ist der 
»Sound Sampler« von Music 
Sales Ltd., mit dem sich Ge- 
räusche digitalisieren und in 
allen Tonhöhen wıederge- 
ben lassen. Diese Zusatz- 
hardware für den Expan- 
sion-Port desC 64 (Bild 3) bie- 
tet maximal vier Kanäle zur 
Tonausgabe. Der »Sound 
Sampler« kann aber noch 
mehr: Er ist gleichzeitig ein 
digitales Echo- und Hallge- 
rät mit frei einstellbarem 
Dämpfungs- und Zeitverhal- 
ten und ein Echtzeitvocoder, 
mit dem man seine Stimme 
beliebig verzerren kann, 
beispielsweise in die von Do- 
nald Duck oder Darth Vader. 
Die Fähigkeiten des »Sound 
Samplers« wurden in einer 
Live-Vorführung wirkungs- 
voll demonstriert. Höhe- 
punkt war ein waschechter 
Rap, der von drei C 64 mit 
»Sound Sampler« unterstützt 
wurde und einer professio- 
nellen Produktion in nıchts 
nachstand. Dieses Zusatzmo- 
dul soll inklusive der Softwa- 
re unter hundert Pfund ko- 
sten, was knapp 400 Mark 
entspricht. In England wird 
der »Sound Sampler« über 
Commodore vertrieben, der 


deutsche Vertrieb ıst noch 
nicht geklärt. 

Das letzte interessante 
Nicht-Spiel war »The Music 
System«, ein neues Musik- 
Programm, das den SID- 
Chip bis aufs letzte Eck aus- 
nutzt. Weitere Schlagwörter 
sind: Benutzerführung durch 
Windows, Midi-Kompatibili- 
tätund Ausdruck von Noten- 
blättern. Programmiert wur- 
de in Zusammenarbeit mit 
der Plattenfirma »Island Mu- 
sic«, vertrieben wird das Pro- 
gramm über Firebird, ın 
Deutschland demnächst 
über Rushware. 

Der Rest des Software-Än- 
gebots, gut 90 Prozent, be- 
stand nur aus Spielen. Einige 
interessante Neuheiten wur- 
den vorgestellt: »Winter Ga- 
mes« von Epyx ist nun fertig 
und soll Ende Oktober aus- 
geliefert werden. Ocean 
kündigte zwei Spiele zu Film- 
Hits an: »The Neverending 
Story« (Die unendliche Ge- 
schichte) und »Rambo — First 
Blood Part 2«, der in Deutsch- 
land unter dem Titel »Rambo 
II — Der Auftrag« dıe Kino- 
leinwände blutig macht. 
Überhaupt erobern immer 


mehr bekannte Persönlieh-n 


keiten den Computerschirm: 
Melbourne House kündigte 
»Lord of the Rings — Game 


One« und »Ästerix« an. Bei 


U.S. Gold gab es »Zorro« und 
»TIhe Goonies« nach dem 
neuesten Film von Steven 
Spielberg zu sehen. 

Die beiden neuen Lucas- 
film-Spiele »The Eidolon«und 
»Koronis Rift« sind für die 
Atari-Computer fertigge- 
stellt und lieferbar, die © 
64-Versionen sind gerade in 
Arbeit. Zu sehen waren sie 
am Stand von »Äctivision«, 
die die europäischen Rechte 
an Lucasfilm-Spielen erwor- 
ben hat. Weiterhin neu im 
Angebot bei Activision sind 
»Hacker«, ein Adventure-Ac- 

tion-Strategie-Logik-Spiel, 
bei dem man alles selber 
herausknobeln muß, »The 
Little Computer People Re- 
search Project«, ein putziges 
Spiel mit kleinen Menschen, 
die im © 64 wohnen und mit 
denen man sich unterhalten 
kann, und »Barry McGuigans 
Boxing«, ein sehr gut gelun- 
genes Sportspiel. Alle Spiele 
werden ab sofort in England 
und Deutschland fast gleich- 
zeitig erscheinen, da Activi- 
sion eine deutsche Zentrale 
in Hamburg gegründet hat. 

Das letzte interessante Pro- 


rduktfüs 64-Besitzer ist das 


»Laser Basic« mit dazu pas- 
sendem Compiler. Hervor- 
gegangen ist dieses neue 


Basic aus dem »Basic Light- 
ning«. »Laser Basic« ist voll 
auf Spieleprogrammierung 
ausgerichtet. So hat man ne- 
ben den acht Hardware- 
Sprites auch 255 Software- 
Sprites beliebiger Größe zur 
Verfügung. Eine deutsche 
Version ist in Vorbereitung, 
die in Kürze bei Quelle er- 
hältlich sein soll. 

Der Gesamteindruck von 
der Messe läßt sich kurz zu- 
sammenfassen: Spiele sind 
in, Musik kann sich noch hal- 
ten, professionelle ÄAnwen- 
dungen sind out. Diese Aus- 
sage gilt natürlich nur für 
den englischen Markt. An 
Hardware bleiben die Eng- 
länder bei ihren bewährten 
Spielemaschinen, dem C 64 
und dem Spectrum. Erfreu- 
lich ist der Trend zu niedri- 
gen Preisen: Kaum ein Spiel 
ist noch teurer als zehn 
Pfund, was zirka 40 Mark ent- 
spricht. Diese Preise schla- 
gensich auch nach und nach 
auf dem deutschen Markt 
nieder. Alles ın allem steht 
uns noch einiges an hoch- 
qualitativen Spielen aus Eng- 
land bevor. (bs) 


Info: Precision Software Ltd., Park House, 4 
Park Terrace, Worcester Park, Surrey KT4 
7JZ, England 

Music Sales Ltd. über Commodore (UK) 
Ltd., 1 Huntersroad Weldon, Corby NNI7 
1OX, Northamptonshire 





Killer-Pokes — 
Gerücht oder Realität 


Es wurden schon Programme 
beschuldigt, Bausteine des C 64 
zerstört zuhaben. Uns, die 64’er- 
Redaktion, interessiert nun, was 
wirklich an der Sache »dran« ist. 
Ist estatsächlich möglich, mitein 
paar POKEs oder mit einem 
noch so komplizierten Pro- 
gramm die Hardware des C 64 
softwaremäßig zu zerstören? 
Wenn Sie ein Killer-Programm 
haben, schicken Sie es uns bitte 
zu. Wir sind gern bereit, es auf 
seine »Funktionsfähigkeit« hın zu 
überprüfen. Schreiben Sie uns 
bitte auch, wenn Sie Erfahrun- 
gen zu diesem Thema haben. 
Zum Beispiel, wenn ein Händler 
einen Garantieanspruch des- 
halb verweigerte. (hm) 


Adresse: 

Markt & Technik 

Verlag Aktiengesellschaft 
Harald Meyer 
Hans-Pinsel-Str. 2 

8013 Haar bei München 
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Intelligente Zusatz- 
tastatur für den C 64 


Eine Neuheit für den C 64: Ei- 
ne Zusatztastatur mit 22 frei pro- 
grammierbaren Tasten. Die TA3 
(Bild) ist eine intelligente Tasta- 
tur. Das bedeutet, daß zur Pro- 
grammierung der Tastenfunk- 
tion kein Speicherplatz des C 64 
verbraucht wird oder Betriebs- 
system-Routinen verändert wer- 
den. Der Anschluß der TA3 er- 
folgt an der Systemplatine desC 
64, am Steckplatz der Standard- 
Tastatur. Dazu wird der Original- 
stecker abgezogen, der Zwi- 
schenstecker mit dem Verbin- 
dungskabel zur Zusatztastatur 
aufgesteckt und der Original- 
stecker an dem Zwischenstück 
angeschlossen. 


Die Tastatur kann bis zu 50 Zei- 
chensätze speichern. Da der Ta- 


 staturspeicher Akku-gepuffert 


ist, bleiben die Zeichensätze 
auch nach dem Abschalten des 
C 64 erhalten. Zum Betrieb lie- 
fert der C 64 den nötigen Strom 
(100 mA). Zwei Leuchtdioden zei- 


gen den Betriebs- oder Pro- 
grammiermodus an. Die Tasten- 
kappen bestehen aus zwei Tei- 
len: dem eigentlichen Tasten- 
knopf und einer transparenten 
Abdeckung. Die Abdeckung 
soll die Beschriftung vor Abgriff 
schützen. Ein Bogen mit den Ta- 
stensymbolen desC 64 istim Lie- 


ferumfang enthalten. Der Preis 
der TA3 beträgt 179 Mark. 
Besitzer der Zusatztastatur 
TA2 können diese zur TA3 »auf- 
rüsten«. Der Preis für die dazu 
benötigte Steuerplatine beträgt 
79 Mark. (hm) 


Info: Oskar Hubert Maurer, Haingraben 23, 
6309 Münzenberg, Tel. 06004/2737 





Der intelligente Nachfolger der TA2, die TA3, mit freiprogrammier- 


baren Tasten. 
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Neues Disketten- 
programm von RPS 


RPS Rhone-Poulec-Systeme 
bietet ab 20.9.85 ein neues Dis- 
kettenprogramm an: High Fo- 
cus-Disketten. Durch ein neues 
Beschichtungsverfahren (En- 
hanced Isotropic Coating) soll 
eine absolut gleichmäßige Be- 
schichtung erzielt werden, die 
Lesefehler ausschließt. Es sol- 
len alle gängigen Typen der 
Größen 3,25 bis8Zollangeboten 
werden; einschließlich High 
Density. 

Die High Density-Diskette mit 
96 tpi soll eine mit Kobalt ange- 
reicherte Magnetschicht haben. 
Die Diskette soll eine Speicher- 
kapazität von 1,6 MByte haben. 

Durch das neue Beschich- 
tungsverfahren sollen sich Vor- 
teile ergeben: »Auf den her- 
kömmlichen Disketten sind die 
Magnetteilchen in eine be- 
stimmte Richtung orientiert, 
nämlich in die des Magnetflus- 
ses, entlang des Polyesterban- 
des, aus dem die Diskette ge- 
stanzt wurde. Während des Dis- 
kettenlaufs ist die bevorzugte 
Richtung der Teilchen wechsel- 
weise parallel und senkrecht 
zum Lesekopf. Dies bewirkt ab- 
wechselnd ein starkes und 
schwaches Signal, was für den 
Benutzer den Sicherheitsbe- 
reich verringert«. Durch das 
»Enhanced Isotropic Coating«- 
Verfahren soll eine bestimmte 
Richtung der Magnetteilchen im 
unmagnetisierten Zustand nicht 
mehr existieren. Die Teilchen 
sollen über alle Richtungen ver- 
teilt sein, was ein gleichbleiben- 
des Niveau des Lesesignals be- 
wirkt. (hm) 


Info: Heinz Trippel, Rhone Poulec Systeme 
GmbH, 6057 Dietzenbach, Tel. 06074/2091 


Neues Kopierprogramm 
für kopiergeschützte 
re 


Mit Copy+ liegt wieder ein- 
mal ein Kopierprogramm vor, 
das für die Benutzer bestimmt 
ist, die Sicherheitskopien von IN- 
ren teuer erworbenen Origina- 
len nicht extra bezahlen, son- 
dern selber erstellen wollen. 

Copy-+ benötigt für den Be- 
trieb ein Parallel-Kabel, wie es 
beispielsweise bei SpeedDos 
verwendet wird. Dieses Kabel 
ist ebenfalls beim Vertrieb von 
Copy+ erhältlich. 

Copy+ arbeitet nach dem 
„Burst-Copy«-Prinzip. Dabei wird 
ein Track in einer Umdrehung 
der Diskette gelesen und ge- 
schrieben. Zusätzlich wird der 
Track vorher analysiert. Copy + 
bietet volles Verify, Kopieren al- 
ler Spuren und Halbspuren von 
] bis 41, sowie die Möglichkeit 
des Sector-Shorting, mit dem 


10 Ssar 





Drehzahlschwankungen des 
Laufwerk-Motors ausgeglichen 
werden. Zusätzlich läßt sich soft- 
waremäßig die Schreib-/Lese- 
Geschwindigkeit auf den einzel- 
nen Tracks ändern. Dies wird in 
neueren Kopier-Schutzverfah- 
ren verwendet. 
Erfreulicherweise ist der Ko- 
piervorgang recht schnell: Ein- 
einhalb Minuten werden für ei- 
nen Backup benötigt, rechnet 
man die Zeit für die fünfzehn (!) 
Diskettenwechsel nicht mit. 
Insgesamt gesehen ist Copy + 
eines der mächtigsten Kopier- 
programme. (bs) 


Info: Frank Thomas, Neckarstr. 34, 6057 
Dietzenbach. Preis (ohne Kabel) 99 Mark. 


Hexer als Bausatz 
und Fertiggerät 


Die Hextastatur für den MSE 
gibt es inzwischen zu kaufen. So- 
wohl als Bausatz oder als Fertig- 
gerät. Der Bausatz ohne Gehäu- 
se kostet 59 Mark, das Gehäuse 
19,50 Mark. Der Gehäuseaus- 
schnitt für das Tastenfeld ist be- 
reits vorhanden. Das Fertiggerät 
(Bild) wird für 96 Mark angebo- 
ten. Die Bestellbezeichnung lau- 
tet STH 24. Geben Sie genau an, 
ob Bausatz, Gehäuse oder Fer- 
tiggerät. (hm) 
Info: Steinmetz Elektronik, Nürnberger Str. 
49, 8600 Bamberg, Tel. 0951/2023638 





Die Selbstbau-Hextastatur aus 
der letzten 64’er-Ausgabe gibt 
es als Bausatz und Fertiggerät. 








Frappierende Ähnlichkeit zur 1541 — Die neue 1570 


Interims-Floppylauf- 
werk für den € 128 


Aufgrund von technischen 
Problemen mit der 1571 zieht 
Commodore ein anderes Lauf- 
werk für den C 128 vor: Die 1570 
ist die kleine Schwester der 1571. 
Sie arbeitet nur einseitig, hat al- 
so die halbe Kapazität wie die 
1571 oder dieselbe wie die 1541. 
Ansonsten sollen die techni- 
schen Daten identisch zur 1571 
sein. Die 1570 soll ab sofort zu 
einem Preis von 798 Mark im 
Handel erhältlich sein. Die 1571 
wird voraussichtlich Ende die- 
ses, Anfang nächsten Jahres 
kommen und soll die 1570 dann 
wieder ablösen. Ein Testbericht 
ist in Vorbereitung. (bs) 


Info: Commodore Büromaschinen, Commo- 
dore Hotline: 069/66382 11 


A u u re 


Gehäuse für den C 64 


Die Firma Oskar Hubert Mau- 
rer bietet für den C 64 auch ein 
spezielles Cehäuse (Bild) an. In 
das Gehäuse passen: die C 
64-Platine, Netzteil und zwei Dis- 
kettenlaufwerke. Zusätzlich gibt 
es einen geregelten Lüfter für 
die Laufwerke, eine ansteckba- 
re C 64-Tastatur mit zusätzlichem 
10er- und Hex-Block und einen 
regelbaren NF-Verstärker mit 
Lautsprecher. Aufder Gehäuse- 
oberseite sind Ablagemulden 
für eine Datasette und Disketten 
oder Kassetten vorhanden. Ein 
Monitor findet auch Platz. 

Alle Umbauarbeiten sollen 
ohne Löten möglich sein. 

Preisanfragen richten Sie bitte 
an die Firma. Auch Sonderwün- 
sche bezüglich der Gehäuse- 
durchbrüche will die Firma, ge- 
gen Aufpreis, berücksichtigen. 

(hm) 


Info: Oskar Hubert Maurer, Haingraben 23, 
6309 Münzenberg, Tel. 06004/2737 
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Alles in einem Gehäuse. Der Zusammenbau soll ohne Lötarbeiten 
möglich sein. Damit ist Schluß mit dem Kabelsalat. 
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Chemie-Programme 
für C 64 


Unter der Bezeichnung »CLB- 
Software für Chemie und Labor« 
bietet die im Umschau-erlag 
erscheinende Fachzeitschrift 
CLB (Chemie für Labor und Be- 
trieb) eine Vielzahl von Pro- 
grammen für C 64 und Apple- 
Rechner an. 

Auch Hardware zur Meßda- 
tenerfassung mit dem C 64 wird 
angeboten. Die Preise für einzel- 
ne Programme liegen zwischen 
25 und 55 Mark. Nähere Infor- 
mationen und Bestellunterlagen 
gibt es von der CLB-Redaktion 
oder von CLB-Marketing. (ev) 


Info: CLB-Redaktion, Birkenstr. la, Postfach 
1247, 5840 Schwerte 

CLB-Marketing, Umschau-Verlag, Stuttgar- 
ter Str. 18-24, 6000 Frankfurt 1 


Staubschutzhaube 
mit integrierter 
Schreibablage 


Einen interessanten Zweitnut- 
zen bietet eine neuartige Staub- 
schutzhaube von Lindy-Elektro- 
nik. In die Haube aus rauchfar- 
benem Kunststoff wurde eine 
Schreibfläche, ein Ablagefach 
für Notizzettel und ein weiteres 
Fach zum Aufbewahren von 
Schreibutensilien integriert. Die 
Lindy-Staubschutzhaube ist für 
die Commodore-Computer C 
64, VC 20 und © 16 lieferbar.(ev) 


Info: Die Staubschutzhaube ist erhältlich in 
den Computerabteilungen von Hertie und 
Karstadt, in VEDES-Geschäften mit Compu- 
terabteilung und in Computershops. Emp- 
fohlener Verkaufspreis: 20 Mark. 


Programme gepackt 


Programmautoren, die ihre 
Software auf geringstmöglichen 
Speicherbedarf zusammen- 
packen wollen, wird der »Com- 
packer V.2%-eine große Hilfe 
sein. Mit diesem Utility lassen 
sich Programme vollautoma- 
tisch auf geringen Speicherbe- 
darf hin optimieren. Dabei wer- 
den verschiedene Verschlüssel- 
ungs-Älgorithmen angewandt. 

Eine weitere interessante 
Möglichkeit ist es, mehrteilige 
Programme in einem File zusam- 
menzufassen. Der Benutzer muß 
nur die Einsprungadresse ange- 
ben, mitder das Programmnach 
dem Entpacken sämtlicher Teile 
gestartet wird. Für dieses Sı- 
cherlich nützliche Produkt wird 
auchnnicht viel verlangt: 35 Mark 
soll der »Compacker« kosten. 

(bs) 
Info: Stefan Husch, Butznickelstr. 29, 6246 
Schloßborn 
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Hama im Computer- 
Zubehörgeschäft 


Hamaphot (Warenzeichen ha- 
ma) ist neuerdings auch im Zu- 
behörmarkt für Computer ver- 
treten. Hamaphot ist seit dem 
1.8.85 über Btx zu erreichen. 
Nummer *26 666#. Angeboten 
werden aktuelle Fototips und ei- 
ne Seite zur Bestellung des 
»Zubehör-Ratgebers 85/86«. Die 
Seite kostet allerdings 9,99 Mark 
(Schutzgebühr). Über eine Dia- 
logseite können spezielle Infor- 
mationen angefordert werden. 
Der Computer-Zubehörkatalog 
»Computer Faszination« kann 
von Hamaphot direkt bezogen 
werden. Hier wird eine Menge 
an Zubehör angeboten: VomRei- 
nigungsstäbchen für den Ton- 
kopf der Datasette bis zum Ver- 
bindungskabel Monitor- 
Computer. 

(hm) 
Info: Hamaphot KG, Postfach 80, 8855 Mon- 
heim, Tel. 09091/1011 


Neues Disketten-Set 
von Verbatim 


In einer »DataBox« b 


er- 
batim zehn an RE one »DataBox« von Verbatim 


100%-fehlerfrei sein sollen. Zwei 
Ausführungen stehen zur Verfü- 
gung: Single Sided/Double 


Density (48 tpi) oder Double Si- 
ded/Double Density (48tpi). Die 
Aurchschnittliche Lebensdauer 
soll 30 Millionen Datenzugriffe 
pro Spur betragen. Die »Data- 





Box« (Bild) ist eine Kunststoffbox 
zur Aufbewahrung von bis zu 50 
5,25-Zoll-Disketten. Sie ist mit 
fünf beweglichen Registern und 
Anti-Rutsch-Füßen ausgestattet. 
Zusätzlich enthält die »DataBox« 
drei Schreibstifte für Disketten. 


Mit ihnen soll ein Disketteneti- 
kett ohne Beschädigung der Dis- 
kette beschrieben werden kön- 
nen. Die Farbe ist wischfest. Im 
Handel soll die »DataBox« etwa 
75 Mark kosten. 








Drei neue Programme 
für das Wersiboard 


Das Wersiboard ist eine an 
den C 64 anschließbare Klavier- 
tastatur (Bild, siehe auch 64er, 
Ausgabe 9/85, Seite 17). Die bei- 
den mitgelieferten Basic-Pro- 
gramme konnten jedoch nicht so 
recht überzeugen. Eine Verbes- 
serung verprechen die dreineu- 
en Sound-Editoren, die jetzt vor- 


Zum Wersiboard 


erhältlich 


gestellt wurden. Alle drei kön- 
nen zusätzlich zum Sound Pak |, 
das im Lieferumfang enthalten 
ist, gekauft werden. 


Sound Pak 2 (Sequenzer/Synthesizer) 
Dieses Programm erlaubt die 

freie Aufnahme von Melodiefol- 

gen (Sequenzen). Sie können 

selbst gespielte Musikstücke auf 

Diskette speichern. 

Preis: 89,50 Mark 


ist neue Software 


Sound Pak 3 (Sound-Creativ-System) 
Ein Ton-Experimentier-Pro- 
gramm, das sich besonders für 
experimentelle Musik und zur 
Gehörschulung eignet. Auch die 
Tonabstände der Wersiboard- 
Tasten lassen sich damit einstel- 
len. Das heißt, daß eigene Ton- 
leitern geschaffen werden kön- 
nen. 
Preis: 39,50 Mark 


Sound Pak 4 (Rhythmusbox) 

Die Rhythmusbox ist ein elek- 
tronisches Schlagzeug. Neben 
dem Steuerprogramm ist noch 
zusätzlich ein Steuergerät erfor- 
derlich. Am Steuergerät können 
über mehrere Potentiometer 
und Schalter verschiedene 
Rhythmen eingestellt werden. 
Preis: 189 Mark (Programm und 
Hardware) (tr) 


Info: Wersi Orgel- und Pianobausätze, Indu- 
striestr., 5401 Halsenbach, Tel. 06747/1230 
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Diskettenfertigung im 
Kaufhaus 


Düsseldorf (hm) — Einen beson- 
deren Kundenservice ließ sich 
das Warenhaus Horten, zusam- 
men mit dem Diskettenherstel- 
ler Sentinel einfallen. Während 
der belgischen Wochen im Kauf- 
haus Horten zeigte Sentinel, wie 
Disketten hergestellt werden. 
sentinel-Direkt-Agent Nusch: 
»Trotz vieler gegenteiliger Mei- 
nungen haben wır es geschafft, 
unsere Maschinen in einem 
Kaufhaus zu installieren.« 

Anläßlich der »belgischen 
Wochen« wurde im Horten-Com- 
puter-Oenter erstmals in einem 
Kaufhaus die Fertigung von Dis- 
ketten vorgenommen. Hierzuhat 
die Firma Sentinel aus Belgien 
entsprechende Maschinen mit- 
gebracht, bei deren Aufbau al- 
lerhand Probleme gemeistert 
werden mußten. Eines war die 
fehlende Staubfreiheit der Luft, 
die im Werk zu bestimmten Ar- 
beitsgängen gewährleistet ist, 
im Warenhaus aber unmöglich 
einzuhalten ist. Ein anderes Pro- 
blem war die Kühlung der Falz- 
maschine, die das Disketten- 
Jacket (Hülle, in der die magne- 
tisch beschichtete Plastikschei- 
be steckt) verschließt und ver- 
schweißt. Mit einem genialen 
wie einfachen Trick bekamen 
die Mitarbeiter von Horten und 
Sentinel auch das Kühlungspro- 
blem in den Griff, so daß man 
die großen Kühlmaschinen in 
Belgien stehen lassen konnte. 

Sentinel ist einer der größten 
Diskettenhersteller Europas. 
Pro Monat werden um zwei Mil- 
lionen Disketten hergestellt, von 
denen ein großer Teil unter dem 
Namen Diskmaster über Horten 
verkauft wird. Horten bezeich- 
net sich als einen der größten 
Diskettendistributoren in 
Deutschland. 

Am Montag, den 2.9. konnte 
dann die »Produktion« anlaufen. 
Von Belgien brachte man offene 
Jackets mit den eingesteckten 
»Magnetscheiben« mit. Interes- 
sıerte konnten sich dann genau 
ansehen, wie die Jackets zuge- 
falzt und verschweißt werden. 
Anschließend wurden die Dis- 
ketten elektronisch auf ihre 
Funktionsfähigkeit und Spei- 
cherdichte hin überprüft, etiket- 
tiert und von Hand verpackt 
(Bild ]). 

Für die Kaufhaus-Produktion 
fuhren vom 2.9. bis zum 14.9 je- 
den Tag drei Sentinel-Mitarbei- 
ter aus Wellem in Belgien nach 
Düsseldorf und wieder zurück. 

Der übrige Produktionspro- 
zeß wurde mit Videofilmen ge- 
zeigt, die im Werk aufgenom- 
men wurden. Bei speziellen Fra- 
gen bekam man ausführliche 
Antworten. 

Wie groß das Interesse an die- 


Bild 1. Diskettenherstellung: 
Prüfen und klassifizieren 


Bild 3. Mobilitätsbeweis: 








DFÜ mit dem Autotelefon 


Bild 4. Hier werden vor 20 bis 
22 Teilnehmer Basic-Kurse ge- 


geben. 
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liche Anzahl von Besuchern, die 
fast den ganzen Tag über die 
Maschinen umringten. Auch 
sehr viele Lehrer kamen mit ıh- 
ren Informatikklassen zur Be- 
sichtigung (Bild 2). 

Gleichzeitig fanden fortlau- 
fend Vorführungen zum Thema 
Datenfernübertagung (DFÜ) 
statt. Es wurde erklärt, wie man 
mit einem Akustikkoppler um- 
geht, wie man Mailboxen an- 
zapft und Texte überträgt. Um 
die Mobilität einer Datenfern- 
übertragung aufzuzeigen, stellte 
man die Telefonverbindungen 
über ein Autotelefon her (Bild 3). 

Ein anderer Service, den Hor- 
ten anbietet, sind Computerkur- 
se für Basic-Anfänger und Fort- 
geschrittene. Die Gebühr für die 
sechsstündigen Kurse betragen 
39 Mark. Die sechs »Schulstun- 
den« werden auf drei Tage ver- 
teilt. Auch Samstagskurse sind 
inzwischen geplant. Als Schu- 
lungsgeräte werden C 64 ver- 
wendet. Einen Blick in das Düs- 
seldorfer Schulungszimmer, das 
sıch 20 bis 22 Schüler teilen, 
zeigt Bild 4. 

In Kürze will Horten einen 
Quick-Service für Computer 
und Floppy-Laufwerke einrich- 
ten. Vorerst will man sich dabei 
noch auf Geräte von Commodo- 
re und Atari beschränken. Der 
Kunde kommt mit seinem defek- 
ten Gerät zur Reparaturstelle ins 
Wareniiaus und kann auf die Re- 
paratur warten. Bei der Repara- 
tur soll der Kunde zuschauen 
können. Dabei soll den Kunden 
genau erklärt werden, was de- 
fekt ist und wie der Schaden be- 
hoben wird. Vielleicht kann 
dann die nächste Reparatur, 
falls der Defekt ein zweites Mal 
überhaupt wieder auftritt, dann 
selbst ausgeführt werden. Bei 
Redaktionsschluß stand noch 
nicht fest, wann und in welchem 
Horten-Warenhaus diese Aktion 
gestartet wird. Sollte diese Ak- 
tion Schule machen, wäre dies 
ein gewaltiger Fortschritt der 
Reparatursituation bei Heim- 
computern, denn häufig sind 
mehrwöchige Wartezeiten im- 
mer noch an der Tagesordnung. 





Sprachsynthesizer 
für den C 64 


Für den C 64 sind zwei neue 
Sprachsynthesizer auf den 
Markt gekommen. Beide Syste- 
me arbeiten nach demselben 
Prinzip: Der zu sprechende Text 
wird aus Phoneme zusammen- 
gesetzt. 

Von Astech Computer gibt es 
das Speech-64-Modul, das am 
Expansion-Port angeschlossen 
wird. Im Preis von 119 Mark ist 
ein Begleitheft in englischer 
Sprache und eine Demodiskette 
enthalten. Die Programmierung 
erfolgt über den Befehl SAY, der 
auf dem C 64 implementiert 
wird. Die Worte werden nach 
den Regeln der englischen 
Sprache ausgesprochen, was 
bei deutschen Wörtern, in unse- 
rem Test, zu Unverständlichkei- 
ten führte. 

Das Sprachsystem von Helmut 
Hausknecht wird ebenfalls in 
den Expansion-Port gesteckt. 
Bevor aber Basic-Programme 
das Sprechen lernen, müssen 
die Phonem-Codes in DATA-ZeI- 
len abgelegt werden. Werden 
die DATAs dann in ein Register 
des Sprachsynthesizers gePO- 
KEt, werden sie über den SID- 
Chip des C 64 als Phonem aus- 
gegeben. Über andere Register 
kann der Klang der Stimme be- 
einflußt werden. Der Sprach- 
synthesizer von Hausknecht ko- 
stet einschließlich einem aus- 
führlichen Begleitbuch 249 
Mark. Die sehr kleine Platine 
wird manuell hergestellt. Für 
Selbstbauer sind die Platine und 
der Sprach-Chip auch einzeln 
erhältlich. 

(Gerhard Pehland/hm) 


Info: Speech 64. Astech Computer, Am Wall 
183, 23800 Bremen, Tel. 0421/324057 
Helmut Hausknecht, Kreuzstr. 10, 4270 Dor- 
sten 


Neue Programmierhilfe 


Ein neues Programmierhilfe- 
modul kommt jetzt aus den Nie- 
derlanden auf den Markt. Es 
nennt sich vIhe Final Cardridge« 
und ist als sogenanntes »Exker- 
nal« aufgebaut. Dadurch ergibt 
sich ein effektiver Speicher- 
platzgewinn für Basic-Program- 
me von 20 KByte. Laut Herstel- 
lerangaben soll das Modul zu 99 
Prozent der C 64-Software kom- 
patibel sein. 

Im Modul integriert sind je ein 
Turbolader für Kassette und Dis- 
kette, eine Centronics-Schnitt- 
stelle und ein Maschinenspra- 
che-Monitor. Ein Reset-Taster ist 
ebenfalls vorhanden. (ev) 


Info: The Final Cardridge, H&P Computers, 
Wolphaertsbocht 236, NL-3083 MV Rotter- 


ser Aktion war, bewies die statt- Bild 2. Unter den Besuchern waren viele Schulklassen. 
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dam, Preis: 190 Mark 
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Leserforum 








Chromdioxid 
für Datasette? 


Mein Computer-Händler 
sagt, ich solle keine Chromdi- 
oxid-Kassetten für meine Data- 
sette benutzen. Ist da was Wah- 
res dran? Michael Splett 


Chromdioxid erfordert eine 
andere Vormagnetisierung als 
Eisenoxid. Auf lange Sicht ge- 
sehen kann die Verwendung 
von Chromdioxid-Kassetten bei 
nicht dafür vorgesehenen Re- 
cordern auch eine geringere 
Lebensdauer des Tonkopfes zur 
Folge haben. 

Wegen der niedrigen Auf- 
zeichnungsrate von 300 Baud ist 
die Verwendung von Chromdi- 
oxid aber auch beim besten Wil- 
len nicht notwendig. 


C 64 mit 
Schneider-Monitor? 


Kann man den C 64 an den 
Schneider-Farbmonitor anschlie- 
Ben? Alexander Wolf 


Bei dem Farbmonitor zum 
Schneider CPC 464/664 handelt 
es sich um einen RGB-Monitor, 
das heißt es sind getrennte Ein- 
gänge für die drei Grundfarben 
vorhanden. Demgegenüber 
verfügt der C 64 nur über einen 
Composite-Video-Ausgang, bei 
dem alle Farben in einem einzi- 
gen Mischsignal zusammenge- 
faßt sind. Daher ist ein Anschluß 
nicht mit vertretbarem Aufwand 
zu realisieren. 


Hilfe gegen Absturz? 


Bei der Zeichensatzverände- 
rung stürzt mein C 64 in einigen 
Fällen nach POKE 648,192 und 
löschen des Bildschirms ret- 
tungslos ab. Wo liegt der Fehler 


und was kann ich dagegen tun? 


Peter Scholz 


14 Ian 


Doppelt große Zeichen 
auf dem C 64? 


Da meine Tochter sehbehin- 
dert ist und sie die normale Zei- 
chendarstellung auf dem C 64 
nur schlecht erkennen kann, su- 
che ich ein Programm, das alle 
Zeichen vergrößert abbildet. 
Allerdings sollte man damit 
auch ganz normal programmie- 
ren können. Wer kennt ein sol- 
ches Programm oder kann sonst 


auf irgendeine Art und 
helfen? Jochen DEIRRE 


Kabel-Geheimnis? 


Wozu ist das nichtisolierte, 
aus dem Datasettenstecker her- 
ausragende Kabel da? 

Heiko Federhenn 


Bei dem Kabel handelt es sich 
um eine Erdungsleitung, die bei 
den großen CBM-Computern 
zur Abschirmung dient. DerC 64 
ist durch eine über der gesam- 
ten Platine gelegten Metallfolie 
aber bereits ausreichend abge- 
schirmt, so daß Sie dieses Kabel 
ohne Gewissensbisse direkt am 
Stecker abschneiden können. 


Erfahrungen mit 
Riteman C-+? 


Wer kann mir über Erfahrun- 
gen vom Betrieb eines Riteman 
C+ am C 64 berichten? 

Michael Neuhaus 


Wer kennt die 
C 16-Hardware? 


Welche Unterschiede beste- 
hen zwischen den Expansion- 
Ports des C 64 und des C 16? 
Wie lauten die entsprechenden 
Bezeichnungen für HROM, GA- 
ME, LROM etc. beim C 16? 

Ingo Mattes 





C 64 als Bix-Tastatur? 


Kann man den Commodore 64 
auch als Btx-Tastatur benutzen? 
Jörg Stalberg 


Sowohl von Commodore als 
auch von Technofor wird es bis 
Ende dieses Jahres einen Btx- 
Steckdecoder für den C 64 ge- 
ben. Beide Module sollen unter 
700 Mark kosten. Mit diesem Sy- 
stem ist es möglich, jeden han- 
delsüblichen Fernseher (oder 
Monitor) zu verwenden. 


Umlaute und deutsche 
Tastaturbelegung? 


Wie bekomme ich deutsche 
Umlaute beim C 64 auf Bild- 
schirm und Drucker? Wie kann 
die Tastaturbelegung beim C 
64 so geändert werden, daß ei- 
ne Normtastatur wie bei einer 
Schreibmaschine entsteht? 

Manfred Jannasch 


Mehr Sprites im 
Basic-Speicher? 


Ich möchte wegen schnelle- 
ren Zugriffs 54 Sprites im Basic- 
Speicher ablegen. Welche 
Möglichkeiten gibt es dazu, 
und wie muß eventuell der 


O®asicAniang oder das Basic- 


Ende dazu verschoben werden? 

Wie kann man Musik-Daten 
im Maschinensprache-Bereich 
ab Adresse $C000 zwischen- 
speichern? Nicolai Mokros 


Mogeleien in 
»lLogeleien«? 


Ihr Autor Heimo Ponnath, des- 
sen Artikel ich übrigens sehr 
schätze, begeht in der 64er, 
Ausgabe 9/85 auf Seite 115 mei- 
ner Meinung nach einen Fehler: 

Er versucht, dem »Program- 
mers Reference Guide« einen 
Irrtum nachzuweisen und be- 
geht dabei selbst einen. Er 
kommt nämlich zu dem Schluß, 
daß dem »Reference Guide« zu- 
folge der Computer nach 
»WAIT 1,32,32« bis in alle Ewig- 
keit warten müßte. Dies ist aller- 
dings auch bei seiner Version 
der Fall; er setzt nämlich das Bit 
für die Zahl 32 falsch (»0001 
0000« statt richtig »0010 0000«). 
Wenn man die Zahl 32 richtig 
darstellt, ergibt sich in dem ab- 
gedruckten Beispiel falls keine 
Taste gedrückt ist: 

0011 0111 55 
0010 0000 32 
—_—— —— FOR—— 
0001 0111 23 
0010 0000 32 
RRERGER FEIERN: ;, ;; , 
0000 0000 O0 
Ergebnis Null, der Computer 
wartet. 























Falls jedoch eine Datasetten- 
taste gedrückt wurde, soll der 
Inhalt von Speicherzelle | 
gleich 39 sein. Der WAIT-Befehl 
bewirkt dann folgendes: 

0010 0111 39 

0010 0000 32 
———  — EOR—— 
0000 0111 7 

0010 0000 32 

0000 0000 0 

Siehe da — das Ergebnis ist 
ebenfalls Null. Der Computer 
wartet also bis in alle Ewigkeit. 

Werner Neudeck 


Es stimmt, mit den angegebe- 
nen Werten würde der Compu- 
ter tatsächlich lange warten kön- 
nen. Der Fehler liegt in der An- 
gabe der Zahl 39 als Inhalt von 
Speicherzelle 1 bei gedrückter 
Taste: Esistnämlich PEEK(]) = 7, 
sobald eine Taste an der Data- 
sette gedrückt wird. Der Befehl 
»WAIT 1,32,32« funktioniert also 
tatsächlich, denn mit der Zahl 7 
als Ausgangswert ergibt sich: 
0000 O1ll 7 
0010 0000 32 
—_— —  BOR—— 

0010 0111 39 
0010 0000 32 
—_— AND-— 
0010 0000 32 

Damit haben wir einen Wert 
ungleich Null als Ergebnis, und 
der WAIT-Befehl wird beendet. 
Übrigens kann man leicht nach- 
rechnen, daß die Reihenfolge 
der Operationen EOR und AND 
keine Rolle für das Ergebnis 
spielt. Die Angaben im »Progra- 
mers Reference Guide« sind al- 
so genauso richtig (wenn man 
die richtigen Zahlen einsetzt). 
Die hier angegebene Reihenfol- 
ge (erst EOR, dann AND) ent- 
spricht aber der Reihenfolge, in 
der diese Operationen vom Be- 
triebssystem tatsächlich durch- 
geführt werden. 





Fragen Sie doch 


Selbst bei sorgfältiger Lek- 
türe von Handbüchern und 
Pro eschreibungen 
bleiben beim Anwender im- 
mer wieder Fragen offen. 
Viel mehr Fragen ergeben 
sich bei Computer-Interes- 
senten, die noch keine fe- 
sten Kontakte zu Händlern, 
Herstellern oder Compu- 
terclubs haben. Sie können 
der Redaktion Ihre Fragen 
schreiben oder Probleme 
schildern (am einfachsten 
auf der Karte »Lesermei- 
nung«). Wir veranlassen, daß 
sie von einem Fachmann be- 
antwortet werden. Allge- 
mein interessierende Fra- 
gen und Antworten werden 
veröffentlicht, die übrigen 
brieflich beantwortet. 
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HI-EDDI und 1526? 


Nachdem ich schon eine Wei- 
le mit dem tollen Malprogramm 
HI-EDDI aus der 64’er-Ausgabe 
1/85 arbeite, habe ich natürlich 
bei Erscheinen der Druckerrou- 
tine für den MPS 802 diese so- 
gleich ausprobiert. Ich besitze 
den Drucker 1526 (Rev. 07). Auf 
diesem Drucker läuft die Routi- 
ne leider nicht, obwohl der 1526 
und der MPS 802 doch eigent- 
lich keine größeren Unterschie- 
de aufweisen. Wer kann mir sa- 
gen, was ich an der MPS 802- 
Routine ändern muß? 

Heinz Krieger 


Lange Strings? 


Warum darf die Länge eines 
Strings beim Lesen aus einer se- 
quentiellen Datei nicht mehrals 
88 Zeichen betragen? Hat die 
RUN/STOP-Taste einen CHR$- 
Code? 

Jörn Maarup, Dänemark 


Der INPUT-Befehl kann maxi- 
mal 88 Zeichen lesen, egal ob 
von der Tastatur oder aus einem 
sequentiellen File. Dies liegt 
daran, daß INPUT mit einem in- 
ternen Datenpuffer arbeitet, der 
eben nur 88 Byte lang ist. Sollen 
Strings mit mehr als 88 Zeichen 
aus einem sequentiellen File ge- 
lesen werden, so muß man Zei- 
chen für Zeichen mit GET# ein- 
lesen und daraus den String auf- 
bauen. 

Die RUN/STOPTaste hat in 
der Tat einen CHR$-Code, näm- 
lich 3 ohne Shift 6STOPo und 131 
mit Shift »RUN«). Allerdings hat 
die Sache einen Haken: Ein 
Druck auf die STOPTaste be- 
wirkt normalerweise den Äb- 
bruch des laufenden Pro- 
gramms. Um das zu vermeiden, 
muß die Abbruch-Funktion der 
STOPTaste mit »POKE 808,255« 
abgeschaltet werden. Vorsicht! 
Ein laufendes Programm kann 
nach diesem POKE nicht mehr 
abgebrochen werden. »POKE 
808,237« reaktiviert die STOP- 
Taste wieder. 


VC 20-Kenner? 


Besitzt der VC 20 eingebaute 
Maschinensprache-Routinen 
für Multiplikation und Division? 
Wenn ja, welche Einsprung- 
adressen haben diese Routinen 
und wie werden die Daten über- 
geben? Manfred Klemenz 


Turbo-Lader eingebaut? 


Wie muß das Betriebssystem- 
ROM beim C 64 verändert wer- 
den, um ein Turbo-Tape-Pro- 
gramm fest zu integrieren? Wel- 
che Adressen bestimmen die 
Baudrate? Bernd-Dieter Bernt 


Ausgabe 11/November 1985 


»Haushaltsbuch« 
mit MPS 801? 


Ich habe das »Haushaltsbuch« 
aus der Ausgabe 7/85 abge- 
tippt. Leider sind die Drucker- 
routinen für Epson-Drucker ge- 
schrieben. Wer hat das Pro- 
gramm für den MPS 801 umge- 
schrieben? 

Dirk Zwartenbol, Niederlande 


Daten weg bei 
»Superbase«? 


Beim Arbeiten mit Superbase 
erhalte ich den Fehlerhinweis 
»Data Mismatch«, wennichinei- 
ner Datei mit erlaubten doppel- 
ten Schlüsselfeldern einen 
mehrmals vorhandenen, völlig 
identischen Datensatz gelöscht 
habe und danach mit »Select« 
über den gelöschten Datensatz 
blättern will. 

Die gemäß Handbuch zur 
Fehlerbehebung notwendige 
Maßnahme mit »Export« bringt 
mirebenfalls den Hinweis »Data 
Mismatch«. Ebenso das Hand- 
ling mit »Sort«. 

Was habe ich falsch gemacht 
beziehungsweise wie kann ich 
die bestehende Datei retten? 

Hans-Winfried Finger 


Kurzwelle und C 64? 


sam © 


Vor längerer Zeit hörte ich, 
daß eine Möglichkeit besteht, 
die Übermittlungen von Nach- 
richtenagenturen mittels eines 
KW-Empfängers aufzufangen 
und an den C 64 weiterzuleiten, 
sie dort zu verarbeiten und auf 
dem Monitor oder Drucker aus- 
zugeben. 

Wer kennt sich mit diesem 
Problem aus? Welche postali- 
schen oder andere Vorschriften 
sind dabei zu beachten? Wer 
bietet entsprechende Hard- 
oder Software an? 

Holger Jöhnck 


Programme nachladen? 


Wenn ein Basic-Programm ein 
anderes nachlädt, dann ent- 
steht ein heilloses Durcheinan- 
der. Wie kann das kommen? 
Ausgabe 9/85 

Norbert Burghart 


Beim Nachladen von Program- 
men innerhalb eines anderen 
Programms werden die Zeiger, 
die auf das Programmende zei- 
gen, nicht ordnungsgemäß 
nachgestellt. Falls das nachge- 
ladene Programm länger ist als 
das erste Programm, dann kann 
es Probleme geben. Werden 
nämlich Variablen definiert, 
dannüberschreiben sie das Pro- 
gramm. Es gibt nun zwei Mög- 
lichkeiten, dies zu verhindern: 

l. Man lädt das Programm im 
Direktmodus, Dazu wird einfach 


eine Eingabe simuliert. Das geht 


folgendermaßen: 
10 PRINT " [CLR,3DOWN, 
4SPACE" ; CHR$(34); " NAME” 


; CHR$(34); " ,8" 
20 PRINT " {HOME} 
30 POKE 631,131 : POKE 198,1 

Zeile 30 simuliert die Eingabe 
der Tastenkombination SHIFT- 
RUN/STOP Um zu vermeiden, 
daß man den Text auf dem Bild- 
schirm lesen kann, muß nur die 
gleiche Farbe für Schrift und 
Hintergrund gewählt werden: 

5 POKE 646, PEEK(53281) 

2. Laden vom laufenden Pro- 
gramm aus mit Neusetzen der 
Zeiger. Die Zero-Page-Ädressen 
174 und 175 werden beim Laden 
eines Programms vom Betriebs- 
system benutzt und enthalten 
nach dem Laden die Endadres- 
se des Programms. Wichtig für 
den Basic-Interpreter sind aber 
die Adressen 45,46. Sie zeigen 
ebenfalls auf das Programmen- 
de und auf den Start der Varia- 
blen. Am Anfang des nachgela- 
denen Programms sollte also 
stehen: 
O POKE 45, PEEK(174) : POKE 46, 
PEEK(175) : CLR 

Durch CLR werden zwar lei- 
der alle Variablen gelöscht, es 
ist aber dennoch wichtig, denn 
es werden dadurch noch einige 
andere Zeiger korrigiert. 

Michael Siepmann 


N 
r 


K ach-Synthesizer 


für C 16? 


Gibt es für den C 16 einen 
Sprach-Synthesizer? 
Roland Weilguny 


Compiler-Test »Basic 64« 


Beim Lesen Ihres Testberichts 
des Basic 64-Compilers von Da- 
ta Becker konnte ich mich des 
Gefühls nicht erwehren, daß 
derverantwortliche Tester wohl 
selbst ein schlechtes Gewissen 
hatte, alser dem Chefredakteur 
seine Druckfahne zur Begutach- 
tung vorlegte. Wenn ich natür- 
lich einen mittelmäßigen Klein- 
wagen mit einem miserablen 
Kleinwagen vergleiche, dann 
kenne ich das Ergebnis von vor- 
neherein. Der BASS-Compiler 
ist nun mal eine lahme Krücke! 
In diesem Falle wurde (hoffent- 
lich unwissentlich) der Ver- 
gleich mit anderen, leistungsfä- 
higeren Programmen versäumt. 
Dieser Artikel, sowie einige 
ähnliche, hätten wohl besser in 
der Rubrik »Werbung und An- 
zeigen« gestanden. 

. Bernd Vollert 


»Basic 64« wurde in dem Test- 
bericht mit vier weiteren Compi- 
lern verglichen (Petspeed, 
Austro-Speed, BASS, Exbasic- 
Level-II-Compiler). 


Wollen Sie antworten? 


Wir veröffentlichen auf 
dieserSeiteauchFragen, die 
sich nicht ohne weiteres an- 
hand eines guten Archivs 
oder aufgrund der Sachkun- 
de eines Herstellers bezie- 
hungsweise Programmie- 


rers beantworten lassen. Das 
istvorallem derFall, wennes 
um bestimmte Erfahrungen 


gehtoderum dieSuchenach 
speziellen Programmen. 
Wenn Sie eine Antwort auf 
eine hier veröffentlichte Fra- 
ge wissen — oder eine ande- 
re, bessere Antwort als die 
hier gelesene, dann schrei- 
benSie uns. Antworten publi- 
zieren wirin einer der näch- 
sten Ausgaben. Bei Bedarf 
stellen wir auch den Kontakt 
zwischen Lesern her. 





»Fenster«-Befehl für 
den C 16 erweitert 


Ich habe das Programm »Fen- 
ster-Befehl« für den C 16 so er- 
weitert, daß bei Anlegen eines 
neuen Fensters der alte Bild- 
schirminhalt zwischengespei- 
chert wird. Durch einen speziel- 
len Befehl können Bildschirm- 
fenster jetzt auch gelöscht wer- 
den, wobei automatisch der bis- 
her verdeckte Bildschirmteil mit 
seinem ursprünglichen Inhalt 
sichtbar wird. Bis zu acht Fen- 
ster, die sich auch überlappen 
dürfen, können gleichzeitig dar- 
gestellt werden. Wer also ein 
bißchen »MclIntosh-Feeling« auf 
seinem © 16 haben möchte, dem 
schicke ich das Programm für ei- 
nen Unkostenbeitrag von 10 
Mark gerne auf Kassette zu. 

Thomas Tieke 


Textverarbeitung mit 
Formeln? 


Ich suche ein Textprogramm, 
mit dem ich mathematische 
Sonderzeichen und hoch-/tief- 
gestellte Indizes auf dem Sei- 
kosha GP-550 ausgeben kann. 
Ausgabe 8/85 

Johann Bierschneider 


Beim Textverarbeitungspro- 
gramm »Textomat« von Data 
Becker besteht wie bei den mei- 
sten Textprogrammen die Mög- 
lichkeit, eine Druckeranpas- 
sung vorzunehmen. In der Steu- 
erzeichentabelle sind die Zei- 
chen 0 bis 9 frei definierbar. 
Man braucht dort also nur in 
hexadezimaler Schreibweise 
die gewünschten Drucker- 
Steuercodes einzutragen, die 
man im Drucker-Handbuch 
nachschlägt. 

Florian Burgstahler 
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INPUT mit Komma? 


Wie kann man mit INPUT 
Komma, Semikolon und Dop- 
pelpunkt einlesen? 

Wie kann man diese Zeichen 
in eine sequentielle Datei 
schreiben? Ulrich Mayrhofer 


Um mit dem INPUT-Befehl 
ganze Eingabezeilen mit Komma 
und anderen Sonderzeichen 
einlesen zu können, gibt es nur 
die Möglichkeit, die Eingabe mit 
einem Anführungszeichen zu 
beginnen. Mit einem kleinen 
Trick kann man das Anführungs- 
zeichen auch automatisch als er- 
stes Zeichen erscheinen lassen. 
Man schreibt ein Anführungs- 
zeichen (CHR$(34)) in den Tasta- 
turpuffer, deran Adresse 631 be- 
ginnt: »POKE 631,34«. 

Dann sagt man dem C 64 mit 
»POKE 198,1«, daß eine Taste ge- 
drückt wurde. Bei einem an- 
schließenden INPUT wird jetzt 
als erstes ein Anführungszei- 
chen ausgegeben, danach kann 
ein beliebiger Text folgen, der 
auch Komma, Doppelpunkt 
oder Semikolon enthalten darf. 

Bei sequentiellen Dateien 
geht man im Prinzip genauso 
vor. Setzen Sie den Text, den Sie 
in eine sequentielle Datei 
schreiben wollen, einfach in An- 
führungszeichen. Beim anschlie- 
ßenden Lesen mit INPUT# wird 
dann der gesamte Text ein- 
schließlich Sonderzeichen, al- 
lerdings ohne Anführungszei- 
chen, wieder von Diskette gele- 
sen. Hier ein Beispielprogramm, 
das eine komplette Eingabezei- 
le von der Tastatur holt, die Zeile 
in eine sequentielle Datei 
schreibt und anschließend wie- 
der liest: 

10 OPEN 1,8,8," TEST,S,W” 

20 POKE 631,34 : POKE 198,1 

30 INPUT A$ 

40 PRINT#1,CHR$(34)+4$+ 
CHR$(34) 

50 CLOSE 1 


16 Jap 


60 PRINT " JETZT LESEN...” 
70 OPEN 1,8,8,' TEST,S,R'" 
80 INPUT#1,A$ : PRINT A$ 
90 CLOSE 1 


Wer sich an dem Anführungs- 
zeichen zu Beginn jeder Einga- 
be stört, der kann noch etwas 
trıckreicher vorgehen: Man 
kann nämlıch nicht nur ein Än- 
führungszeichen in den Tasta- 
turpuffer POKEn, sondern zu- 
sätzlich auch die Codes für das 
Setzen der Zeichenfarbe. Wenn 


chen müssen, daß kurz bevor 
mein Sprite-Maker fertigge- 
stellt wurde, ein leistungsstar- 
ker Sprite-Editor im 64’er- 
Magazin abgedruckt wurde. 
War meine Arbeit also um- 
sonst? Auch wenn mein Sprite- 
Maker einige Funktionen mehr 
besitzt als der abgedruckte? 
Lohnt es sich überhaupt, ein 
Programm zu einem Thema ein- 
zuschicken, für das bereits ein- 
mal ein Listing veröffentlicht 
worden ist? | 

Speziell würde mich interes- 
sieren, nach welchen Kriterien 
Programme ausgewählt wer- 
den. 

Werden Programme, die 
zwecks Schnelligkeit mit 
Maschinensprache-Routinen ar- 
beiten, denlangsameren reinen 
Basic-Programmen vorgezo- 
gen? 

Stefan Seidenberg 


Bei der Auswahl von Program- 
men für eine Veröffentlichung 
gibt es im wesentlichen folgen- 
de Kriterien: 

— Qualität der Problemlösung. 
Eine Dateiverwaltung beispiels- 
weise, bei der man die Eingabe- 
maske mit den Cursortasten aus 
dem Bildschirm herausscrollen 
kann, ist sicher nicht das Opti- 
mum. 

— Qualität der Programmbe- 
schreibung. Wenn der zuständi- 


man dann zuerst die Zeichenfarn ep 


be auf Hintergrundfarbe setzt, 
anschließend das Anführungs- 
zeichen ausgibt und schließlich 
wieder die normale Schreibfar- 
be einstellt, dann ist das Anfüh- 
rungszeichen unsichtbar, tut 
aber gleichwohl seine Wirkung. 
Sei beispielsweise die Hinter- 
grundfarbe Blau und die Zei- 
chenfarbe Weiß. Ein Blick in die 
ASCII-Code-Tabelle im Hand- 
buch ergibt die Codes 31 für 
Blau und 5 für Weiß. Für ein un- 
sichtbares Anführungszeichen 
ersetzt man also im obigen Bei- 
spiel die Zeile 20 durch: 

20 POKE 631,31 : REM BLAU 

21 POKE 632,34 : REM 


ANFUEHRUNG 
22 POKE 633,5 : REM WEISS 
23 POKE 198,3 : REM 3 TASTEN 


So erreicht man eine doch 
recht brauchbare Eingaberouti- 
ne, ohne ein spezielles Maschi- 
nenprogramm zur Erweiterung 
des INPUT-Befehls schreiben zu 
müssen. 


Welche Software 
ist gefragt? 

Die im 64’er-Magazin abge- 
druckte Programmfülle ist qua- 
litativ so gut und so verschie- 
den, daß fast jede Programmart 
(Textverarbeitung, Sprite-Edi- 
tor, Vokabelprogramm etc.) 
schon abgedruckt wurde. Ich 
habe leider die Erfahrung ma- 


eriakteur die gesamte Be- 
schreibung wegen gravieren- 
der sprachlicher oder sachli- 
cher Mängel neu verfassen 
muß, fördert das nicht gerade 
seine Bereitschaft, das Listing 
abzudrucken. 
— Qualität der Idee. Programme 
zu neuen, noch nicht behandel- 
ten Themen von allgemeinem In- 
teresse oder neuartigen Ideen 
zur Lösung bekannter Probleme 
sind interessanter, als die 570ste 
Version eines Sprite-Genera- 
tors. 
— Generell gilt: Qualität geht vor 
Quantität. Es haben nicht beson- 
ders lange Listings die Chance, 
abgedruckt zu werden, sondern 
besonders gute Listings. Bei 
gleicher Leistung werden schon 
aus Platzgründen kürzere Pro- 
gramme vorgezogen. Und wenn 
die Geschwindigkeit eines Pro- 
gramms ein wichtiges Kriterium 
ist, ist eine entsprechende Ma- 
schinenroutine sicherlich sinn- 
voll. 

Was Ihr spezielles Problem 
anbelangt, so haben Program- 
me zu bestimmten Themen, die 
wir bereits veröffentlicht haben, 
nur dann eine Chance, wenn sie 
in mehr als zwei oder drei Punk- 
ten besser sind als der »Vorgän- 
ger«. Das will heißen, Program- 
me zu ein und demselben The- 
mahaben nach wie vor Chancen 
veröffentlicht zu werden, nur sie 
müssen sich an den bereits er- 
schienenen Programmen mes- 
sen lassen. 


VC 20-Hilferuf 


Eigentlich bin ich (vielleicht 
zu Unrecht) etwas enttäuscht 
vom 64’er-Magazin. Steht doch 
da auf der Titelseite der Ausga- 
be 8 »Tips & Tricks für C 64, VC 
20, C l6«, so findet man beim 
Durchbäittern nur einen einzi- 
gen Artikel zum VC 20. Meinen 
Sie nicht auch, daß einer der 
meistverkauften Rechner etwas 
mehr Beachtung verdient? 

Wurden früher wenigstens 
noch C 64-Maschinenprogram- 
me als ÄAssembler-Listings oder 
in disassemblierter Form abge- 
druckt, muß ein VC 20-Freund 
sich heutzutage durch DATAs 
und MSE-Codes wühlen, um am 
Ende jeglichen Überblick zu 
verlieren und damit auch die 
Hoffnung, ein solches Pro- 
gramm auf dem VC 20 zum Lau- 
fen zu bekommen. 

Könnten die Programmauto- 
ren ihre Listings nicht besser 
dokumentieren und die Kniffe 
offenlegen, die sie program- 
miert haben? Der Dank der VC 
20er-Schar würde ihnen gewiß 
ewig nachschleichen. 

Im übrigen würde es mich 
sehr freuen, wenn Ihre Zeit- 
schrift in Zukunft diese Art der 
Diskriminierung des VC 20 un- 
terlassen würde. 

Michael Weblau 


Der VC 20 wird inzwischen seit 
einem Jahr nicht mehr gebaut, 
und entsprechend gering ist das 
allgemeine Interesse der Leser- 
schaft an diesem Computer ge- 
worden. Ein Vorschlag zur Ver- 
söhnung der VC 20-Fans: Wer 
ein C 64-Programm aus dem 
64’er-Magazin für den VC 20 um- 
geschrieben hat und bereit ist, 
es ohne kommerzielle Interes- 
sen an andere VC 20-Besitzer 
weiterzugeben, der möge dies 
bitte der Redaktion mitteilen. 
Gleiches gilt auch für C16/C116 
und Plus/4-Besitzer. 

Wir werden Angebote von all- 
gemeinem Interesse im Leserfo- 
rum veröffentlichen. Dazu benö- 
tigen wir allerdings eine schrift- 
liche Erklärung, daß Sie mit der 
Weitergabe und Veröffentli- 
chung Ihrer Anschrift einver- 
standen sind. 

Ein Wort noch zu den Assem- 
bler-Listings: Es gibt selbstver- 
ständlich eine ganze Reihe Le- 
ser, die am liebsten zu jedem 
MSE-Listing auch gleich den do- 
kumentierten Quelltext sehen 
möchten. Das ist leider nicht im- 
mer möglich und zwar haupt- 
sächlich aus zwei Gründen: er- 
stens verbraucht der Quelltext 
sagenhaft viel Platz (der SMON 
zum Beispiel würde als Quelltext 
mehr als 200 Blöcke = etwa 50 
KByte verbrauchen und das oh- 
ne Kommentare!) und zweitens 
werden längere Programme 
sehr selten von den Autoren im 
Quelltext selber dokumentiert. 
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Joysticks C 64/VC 20 


ort, wo beim Auto das Lenkrad 
ist, hat der Computer einen Joy- 
stick. Als Schnittstelle zu Spie- 
len und Grafikprogrammen haben 
sie sich still und leise in die Haushal- 
te geschmuggelt. 

Joysticks sind das Lebenselixier 
aller Spiele. Spätestens beim ersten 
»plug Joystick into port 2« wird der 
Computer-Neuling merken, worauf 
er sich beim Kauf seines C 64 einge- 
lassen hat: Es gibt da auf der rech- 
ten Seite zwei neunpolige Buchsen, 
die schrecklich leer aussehen; oder 
haben Sie Ihren Joystick aufgrund 
ständigen Gebrauchs bereits aufge- 
arbeitet? In beiden Fällen muß dann 
wohl ein Neuer her. Aber halt — be- 
vor Sie dem Redeschwall des Ver- 
käufers erliegen, oder an den enor- 
men Auswahlmöglichkeiten ver- 
zweifeln, sollten Sıe sich im Klaren 
darüber sein, welcher Steuerknüp- 
pel Ihren Anforderungen gerecht 
werden könnte Obengenannter 
Verkäufer kann Sıe dann viel besser 
beraten, und bestimmt läßt er Sıe Ih- 
ren Wunsch-Joystick auch einmal 
ausprobieren. Schließlich ist es ja 
auch eine Preisfrage. Und um Ihnen 
hier beratend zur Seite zu stehen, 
haben wır eine Marktübersicht (Bild 
]) mit den wichtigsten Punkten erar- 
beitet. 





Das Funktionsprinzip 


Vom Computer aus betrachtet be- 
steht ein Joystick aus fünf Schaltkon- 
takten (vier Richtungen und der Feu- 
erknopf), die sich im Ruhezustand so 
verhalten, als wären sie gar nicht 
vorhanden: Die Eingangsleitung 
führt Hi-Potential, das sie über einen 
Widerstand gegen Versorgungs- 
spannung erhält. Bewegt man den 
Hebel des Joysticks ın eine Rich- 
tung, wird einer der Schalter gegen 
Masse kurzgeschlossen. Der Com- 
puter registriert an seinem Eingang 
(beim © 64 der CIA ]) diesen Kurz- 
schluß und reagiert entsprechend 
seiner Programmierung darauf. Für 
uns ist es wichtig zu wissen, wie die- 
se Schalter aufgebaut sind, denn sıe 
sind mit entscheidend für die Ge- 
nauigkeit und die Haltbarkeit des 
Joysticks. Am besten bewährt haben 
sich hier Mikroschalter und Metall- 
zungenkontakte. Eine zukunftsträch- 
tige Neuentwicklung sind Kugel- 
schalter, deren Aufbau einen sehr 
robusten Eindruck macht: In Verlän- 
gerung des Griffstückes befindet 
sich eine massive Stahlkugel, die 
beim Bewegen des Joysticks gegen 
eine von vier Metallwänden ge- 
drückt wird. Man kann sich das wie 
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Joysticks 


Seit-Beginnder Heimcomputer-Ara begleiten 
Joysticks den Computer. Wir haben die neuesten 
und bekanntesten für Sie in einer Marktübersicht 

zusammengestellt. 


den Klöppel einer Glocke vorstellen 
(Bild 2). Eine ganz andere Konstruk- 


tion stellen die Quecksilberschalter 


dar, wobei die Bezeichnung »Schal- 


.ter« eigentlich falsch ist. In deren In- 


neren befinden sich vier nicht ganz 
waagerecht angeordnete Röhr- 
chen. Sie enthalten jeweils zwei Kon- 
takte, die beim Bewegen des Joy- 
sticks durch einen Quecksilbertrop- 
fen verbunden werden. 

Ebenfalls neu ist, daß die Steuer- 
befehle einiger Joysticks über Infra- 
rotfernbedienung statt durchs Ka- 
bel übertragen werden. Dieses Sy- 
stem konnte allerdings noch nicht so 
recht überzeugen. Gegenlichtemp- 
findlichkeit und Unsicherheit in der 
Bedienung (aus größerer Entfer- 
nung muß man schon ganz schön auf 
das Empfangsgerät zielen), machen 
sie einem guten, verkabelten Joy- 
stick noch nicht ebenbürtig. Etwas 
älter, aber eine wesentliche Erleich- 
terung ist das automatische Dauer- 
feuer. Wer sich bei schnellen 
Schießspielen keine müden Finger 


holen will, wird auf diesen Zusatz 
nicht verzichten wollen. Darüber 
hinaus ist auf den meisten Joysticks 
mehr alsein Feuerknopf zu finden — 
zum einen, um den Joystick Links- 
händern zugänglich zu machen, 
aber auch um den »Schnellfeuerfin- 
ger« wechseln zu können. Ebenso 
wichtig ist für den Anwender, daß 
der Joystick sicher steht. Das kann 
entweder durch Saugnäpfe, oder 
durch Gummifüße erreicht werden. 
Hier läßt sich die geschickteste Lö- 
sung für den Einzelfall nicht ange- 
ben. Da hilft nur Ausprobieren beim 
Händler. 

Die Marktübersicht beruht auf 
Angaben der Hersteller oder An- 
bieter und erhebt keinen Anspruch 
auf Vollständigkeit. Die meisten Joy- 
sticks sind neben den aufgeführten 
Adressen auch im Fachhandel und 
in Kaufhäusern erhältlich. Bei den 
Preisen handelt es sich um Durch- 
schnittswerte. Ein Preisvergleich vor 
dem Kauf lohnt sich also in jedem 
Fall. 
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Die Gegenüberstellung 


Aus der Vielfalt aller möglichen 
Joysticks haben wir die sieben meist 
verkauften und weithin bekannte- 
sten »Knüppel« herausgesucht. Ihre 
Fähigkeiten mußten sie anhand von 
dreiSpielen und einem Zeichenpro- 
gramm unter Beweis stellen. 

Summer Games, wurde zum Test 
der Belastbarkeit und Bruchfestig- 
keit des Joysticks herangezogen. Ei- 
ne Aussage über die Bewegungs- 
und Richtungsgenauigkeit brachten 
die anderen beiden Spiele und ein 
Grafikprogramm: Impossible Mis- 
sion, Dropzone und HIL-EDDI. Ein 
Grafikprogramm zeigt am besten, 
wie weit man den Joystick bewegen 


Einer von zwei Feuerknöpfen. 
1) Verschleißfreier Kontakt durch 
einen Metallring 





Die im Text er- 
(2) wähnte Kugel 


Zwischen diese 
(3) Wände gehört die 

Kugel im geschlos- 

senen Zustand 


Bild 2. Die Mechanik des TAC 2. 


muß, um eine Funktion auszulösen. 
Die Leistungskriterien waren 
Leichtgängigkeit, Stabilität und 
Richtungsgenauigkeit. Ebenfalls 
berücksichtigt wurde die Standfe- 
stigkeit und der Reaktionsweg. 
Competition Pro — ungeschlagen 

Dank der soliden Bauweise, ist 
der Competition Pro für jeden Ein- 
satzempfehlenswert. Durch die Ver- 
wendung von Mikroschaltern ver- 
mittelt der Competition Pro ein exak- 
tes Schaltgefühl. Auch versprechen 
die Mikroschalter eine lange Le- 
bensdauer. Selbst nach häufigem 
Gebrauch zeigte der Competition 
Pro kaum Verschleißerscheinun- 
gen. Das insgesamt sehr gute Bild 
wird lediglich durch die Anordung 
der Feuerknöpfe getrübt. Es fehlt 
der Feuerknopf im Griff. Eine 
Einhand-Steuerung ist beim Com- 
petition Pro praktisch unmöglich. 
TAC 2 mit neuer Technik 

Er hält, was sein Name verspricht. 
Der  »Totally-Accurate-Controller« 
läßt sich wie der Competition Pro 
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exakt handhaben. Auffällig ist das 
durch den Kugelschalter vermittelte 
Schaltgefühl. Der Kontakt wırd im 
Moment des Endanschlags ausge- 
löst. Dazu kommt ein sehr kurzer 
Schaltweg. Der TAC 2 ist sehr stabil 
und kompakt. Der Griff ist sehr kurz 
gehalten, was jedoch nicht unbe- 
dingt ein Nachteil sein muß. 
Cobra: Zum Fliegen geschaffen 

Der Cobra sieht aus wie der Steu- 
erknüppel eines Flugzeugs. Er ist 
deswegen besonders für solche 
Spiele hervorragend geeignet, bei 
denen ein Flugzeug oder ähnliches 
zu steuern ist. Sein hohes Gewicht in 
Verbindung mit den Saugnäpfen, er- 
weckt das Gefühl, als sei er mit dem 
Tisch verwachsen. Beim Test nah- 
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Quickshot IV 
Quickshot X 
Quicksoht V 
Quickshot VII 
Sarıyo MJY-002 
Snap Shot 
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Wico Grip Handle 
Wico Professional 
Wico Redball 
Wico Super 3 Way 
Wico Super 
Command 

Wico tribate deluxe 
Wico Trackball 
Marconi Trackball 
Atari Trackball 
Lindy Lightpen 
Koala Lightpen 
Tech Pad 


BBZZ ZZZZZHZZZ- zZ zu 


© © @ © .00 
vbvvom 


ıI11232323- 
|Illooo« 
|llvo-n» 


Bild 1. Marktübersicht Joysticks 
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Metallzungen 


Mikro 
Mikro 
Plättchen 
Mikro 
Plättchen 
Mikro 


Metallzungen 
Metallzungen 


Mikro 


Metallzungen 


Plättchen 
Plättchen 
Plättchen 
Plättchen 
Mikro 


Metallzungen 
Metallzungen 
Metallzungen 


Plättchen 


Metallzungen 


Plättchen 
Mikro 
Plättchen 


Metallzungen 
2 Potentiometer 
Kugelschalter 


Plättchen 


Kugelschalter 


Mikro 


Metallzungen 


Plättchen 


Metallzungen 


K.A. 


Metallzungen 
Metallzungen 


Mikro 
Mikro 


Plättchen 


Digitalscheiben 
Digitalscheiben 
Digitalscheiben 


Ariolasoft, 089/4 136313 
Cetec, 040/280 1045 
Cimring, 06173/62027 
Commodore, 069/66382 11 
Computerland, 0711/2944 18 
Compy-Shop, 020/8497169 
Conrad, 089/592128 
Cosinus Computersysteme, 
02521/12405 

Dynamics, 040/366147 
FunTastic, 089/939894 
Füssener Computersysteme, 
05971/50218 

haku, 02 11/328555 
Harmann, 07131/4800 

J. Schumpich, 089/6065074 
Jöllenbeck, 04287/6910 
Lindy, 0621/26851 

Mükra, 030/7529150 
Philips, 040/32971 

Tober, 05161/3897 
Rushware, 02101/68499 
Sanyo, 089/416040 

Sony, 0221/59661 
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men das zwei seiner Saugnäpfe all- 
zu wörtlich: Sie blieben an der Tisch- 
platte kleben und rissen vom Ge- 
häuse ab. Der Grund dafür war, daß 
die Saugnäpfe im Metallboden des 
Joysticks in einer scharfkantigen 
Bohrung stecken. Da der Cobra 
trotz der Verwendung von Mikro- 
schaltern schwergängig ist und lan- 
ge Reaktionswege hat, kann länge- 
res Spielen durchaus ermüdend 
sein. Von den drei am Griff ange- 
brachten Feuerknöpfen sind zwei 
mit Dauerfeuer ausgerüstet. Eine 
Besonderheit des Cobra ist, daß 
man den Griff um seine Längsachse, 
in einem Bereich von etwa 30 Grad, 
arehen kann. 
Wico Three Way. Für jeden der richtige Griff 

Warum die beiden Feuerknöpfe 
des Three Way unabhängig um- 
schaltbar gemacht wurden, ist uns 
unklar: Von den zwei Buttons kann 
immer nur einer als Feuerknopf be- 
nutzt werden. Hier hätte man den 
Platz lieber für die Zuschaltung ei- 
ner Dauerfeuerfunktion hernehmen 
können. Ansonsten ist der mit Mikro- 
schaltern ausgerüstete Three Way 
ein stabiler Steuerknüppel mit si- 
cherem Stand, der wegen seiner 
drei auswechselbaren Griffe für je- 
den die richtige Form bietet. 
Quickshot Il: Der Altmeister 

Das automatische Dauerfeuer hat 
den Quickshot II bekannt gemacht. 
Ebenso bekannt ist allerdings auch, 
daß er nach einem halben Jahr in- 


tensiven Gebrauchs den Ansprü- 
chen einer genauen Steuerungnicht 
mehr entspricht. Der Grund dafür 
ist, daß die Joystickbewegungen 
über einen Plastikring auf Metall- 
zungen übertragen werden, und 
das Ganze noch in Kunststoff gela- 
gertist. Hiermachen sich die Mikro- 
Schalter der Konkurrenz bezahlt. 
Als höchste Pluspunkte muß man 
dem Quickshot IT anrechnen, daßer 
durch seine Saugnäpfe eine gute 
Standfestigkeit besitzt und durch 
seinen hervorragend geformten 
Griff sehr gut in der Hand liegt. 
Auch der niedrige Preis hat sicher 
seinen Teilzu dem großen Verkaufs- 
erfolg beigetragen. 
Ascom High-Score, der Leichtgängige 

Das Erste, was auffällt, wenn man 
den Äscom das erste Mal ın der 
Hand hält, istsein geringes Gewicht. 
Ein gewisses Vorurteil gegenüber 
der Stabilität dieser Konstruktion 
läßt sich deswegen nicht verleug- 
nen. Glücklicherweise gab es je- 
doch während des gesamten Tests 
keine Materialbrüche zu beklagen. 
Dadurch, daß der Ascom sehr 
leichtgängig ıst und durch die Ver- 
wendung von Metallzungenschal- 
tern einen sehr kurzen Reaktions- 
weg hat, ist er für einen günstigen 
Preis eiw2pielpartnezimnllen Situa- 
tionen. 
VC 1311, das Leichtgewicht 

Der Original-Joystick von Commo- 
dore kommt bei diesem Vergleich 


schlecht weg. Zu zerbrechlich ist 
seine Mechanik. - Beim Härtetest 


brachen zwei Steuerknüppel ab. 


Es ist für jeden etwas dabei 

Wenn Sie sıch einen neuen Joy- 
stick zulegen wollen, dann sollten 
Sie Ihr Augenmerk vor allem auf die 
Lebensdauer richten. Die Lebens- 
dauer eines Joysticks hängt haupt- 
sächlich von zwei Faktoren ab: von 
der Mechanik des Griffes und von 
den verwendeten Schaltern. Am be- 
sten bewährt haben sıch ım Test Mi- 
kroschalter und Kugelschalter, die 
beide exakt schalten, und deren 
Konstruktion keine billige Kunststoff- 
mechanik zuläßt. Natürlich spielt 
auch der Preis des Joysticks eine 
Rolle. Man sollte aber berücksichti- 
gen, daß die sehr billigen Joysticks 
nach viel zu kurzer Zeit nicht mehr 
zu gebrauchen sind. In diesem Zu- 
sammenhang halten wır zwei Joy- 
sticks für empfehlenswert: Den 
Competition Pro und den Tac 2. Bei- 
de bieten für einen vertretbaren 
Preis Leistungen, die sie den teure- 
ren Joysticks gleichwertig machen. 
Wer für seinen Joystick nicht viel 
Geld ausgeben möchte, dem kommt 
der Ascom High-Score entgegen. 
Das gleiche gilt auch für den 
Quickshot II, der mit Dauerfeuer 
und weniger Stabilität ausgerüstet 
ist. Für den umgekehrten Fall, daß 
der Preis keine wesentliche Rolle 
spielt, Könnte man den Cobra in Er- 
wägung ziehen. (09) 





Hier gibt’s Clubs 


Um Euch und den Clubs unnö- 
tige Kosten und Zeit zu ersparen, 
einige Hinweise. Bei schritftli- 
chen Anfragen an die Clubs, 
sollte generell ein ausreichend 
frankierter Umschlag beigefügt 
werden. Bevor man einem Club 
beitritt, sollte man sich über des- 
sen Status, Mitgliederzahl, Bei- 
tragssätze (soweit nıcht mit auf- 
geführt) und Gebühren für Lehr- 
gänge informieren lassen. Aus 
Platzgründen und der UÜber- 
sichtlichkeit wegen sind neben 
den Adressen nur einige 
Schwerpunkte mit angegeben. 
C 64 User-Club-Harburg 
c/o Ändreas Groeschl, Lassal- 
lestr. 54, 2100 Hamburg, Tel. 
7651923 und Werner Thoele, 
Karl-Arnold-Ring 24, 2102 Ham- 
burg 93, Tel. 7540598. 

Der Club trifft sich zirka alle 4 
bis 6 Wochen bei einem der Mit- 
glieder. Für Anfänger werden 
Hilfestellungen gegeben, Über- 
setzungen von Änleitungen wer- 
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den geschrieben, eingekauft 
wird gemeinsam. Künftige Ziele 
sind C/PM, Erlernen von Pro- 
grammiersprachen und Um- 
gang mit kommerziellen Pro- 
grammen. 

C 64 User Club Saga 

Ostersielzug 8, 2254 Friedrichs- 
stadt. 

Der Club befaßt sich haupt- 
sächlich mit Erfahrungs- und 
Programmaustausch. 
COMAL-Gruppe Deutschland 
D. Belz, 2270 Utersum/Föhr, Tel. 
04683/500. 

Tausch von Programmen und 
Infos. Verbreitung der Sprache 
Comal. Eigene Mailbox 
(04683/554). Verbindung zu al- 
len Comal-Gruppen in der Welt. 
LCC-Lübecker-Commodore-Club 
Moltkestr. 14, 24 Lübeck, 

Clubtreffen, Softwarebiblio- 
thek, Computersprachen. DFÜ 
ist geplant. Aufnahmegebühr: 
ein eigenes Programm. 
Commodore-User-Club-Lübeck 
Peter Jablonski, Bülowstr. 29, 
2400 Lübeck |. 


Monatliche Clubzeitschrift. 
Beitrag 10 Mark, für Schüler die 


Hälfte. Aufnahmegebühr 15 
Mark. 

Computergemeinschaft 64 

Michael Fuhrmann, Eilveser 


Hauptstr. 34, 3057 Neustadt 1. 

Austausch von Programmen, 
POKESs und anderen Tricks. Ver- 
bindungen zwischen Computer- 
freunden. 


Computer-Kombinat Schwarzer Kanal 
Uwe Tröger, An der Abzucht la, 
3380 Goßlar 1. 

Softwaretauschh AÄdventure- 
Entwicklung, Tips & Tricks, ei- 
gene Spielehitliste, Informatik- 
nachhilfe. 


Software Changer Club 
c/o Thomas Ross, Neukir- 
chenstr. 55, 4150 Krefeld 11. 
Schwerpunkte sind Ideen-und 
Programmaustausch, Clubzei- 
tung und Adventures program- 
mieren. Mitglieder aus dem 
Kreis DD-Krefeld-Kempen erbe- 
ten. 


Computer-Club-Kerken 
Andre Düttmann, Schlehdorn- 
weg 10, 4173 Kerken |. 

Geplant ist, eine umfangrei- 
che Softwarebibliothek anzule- 
gen, alle drei Monate eine Club- 
zeitung herauszubringen. Tref- 
fen werden einmal im Jahr statt- 
finden. Des weiteren sind Auto- 
renwettbewerbe geplant. Eine 
DFU-Nummer ist in Arbeit. 


C 64-User-Club der Grafschaft 
Bad Bentheim, Jürgen Erbe, Am 
Böckler 9, 4444 Bad Bentheim. 
Regelmäßige Treffen, ge- 
meinsames Lösen von Compu- 
terproblemen des einzelnen. 
Geplant sind eine EPROM- 
Brennerei und die Anschaffung 
eines Akustikkopplers. 


C 64-User-Club-V.H.S.1. 
Postfach 100905, 4970 Bad Oeyn- 
hausen, Tel. 0571/75377. Jeweils 
von 19 Uhr bis 20 Uhr. 
Gegründet 1983, trıfft sich der 
Club einmal monatlich. Beitrag 
gibt es keinen, ein Clubinfo etwa 
3-4mal jährlich. 
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Bild 1. Der neue Lightpen von Lindy und die 
passende Software dazu. Einfaches Arbeiten 
ist vorprogrammiert. 


ge. Das dominierende Steuer- 
gerät ist der Joystick. Wie aber 
sieht es zum Beispiel bei Anwender- 
Software aus? Hier bieten sich Alter- 
nativen an. 

Als erstes wäre In diesem Zusam- 
menhang der Lightpen (Bild ]) zu 
nennen. Mit ihm ıst es möglich, ei- 
nen Punkt direkt auf dem Bild- 
schirm, quası durch antippen, aus- 
zuwählen. Einige Zeichenprogram- 
me bieten in Ihrem Menü bereits die 
Möglichkeit, einen Lichtanffel di- 
rekt anzuschließen, ummitihmdann 
zu zeichnen. Da der Lightpen keine 
dem Joystick ähnlichen Signale lie- 
fert, ist eine spezielle Software zur 
Signal-Auswertung nötig. Die eigent- 
lichen Schwierigkeiten liegen hier 
in der Hardware. Der Lichtempfän- 
ger (ein Fototransistor) erfaßt auf 
dem Bildschirm zu viele Punkte auf 
einmal (siehe 64’er, 9/85) — die Ab- 
frage wird ungenau. 


Auf dem Bildschirm 
malen 


Außerdem ist die Abfragege- 
schwindigkeit zu langsam, um rich- 
tig auf dem Bildschirm schreiben zu 
können. Präzisions-Lichtgriffel, die 
dieses Manko nicht aufweisen sind 
verhältnismäßig teuer. Die optimale 
Verwendung erhält der Lightpen 
beim Auswählen von Menüpunkten. 
Da man dafür keinerlei Kenntnisse, 
nicht einmal über dıe Lage der Ta- 
sten auf der Tastatur, benötigt, kann 
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2 eı Spielen ist es wohl keine Fra- 








Es geht auch anders 


Nicht immer ist der Joy- 
stick die optimale Schnitt- 
stelle zum Computer. Dem 
Anwender stehen neben 
der Tastatur auch 
andere Eingabegeräte 
zur Verfügung. 


Bild 2. Der Marconi RB2-Trackball von Lindy 
benötigt ebenfalls spezielle Software. 
Ein sehr exaktes Eingabegerät. 


wirklich jeder damit arbeiten. Der 
französische Computer-Hersteller 
Thomson hat ım TO 7 einen Lichtgri- 
fel bereits fest eingebaut. Für den C 
64 hat der Lightpen trotz großen In- 
teresses noch keine weite Verbrei- 
tung gefunden. 

Eine weitere Alternative ist der 
Trackball (Bild 2). Sein großer Vor- 
teil ist die Genauigkeit, mit der man 
auf dem Bildschirm ın allen Richtun- 
gen »herumfahren« kann. Im Gegen- 
satz zum Joystick gelingen einer ge- 
übten Hand sogar Geraden in belie- 
bigen Winkeln (ohne Line-Funk- 
tion). Der Joystick dagegen erlaubt 
nur 45-Grad-Winkel. 

Allerdings kann man nicht jeden 
Trackball als Joystickersatz herneh- 
men. Beieinigen Modellen ist eben- 
falls Software zur Verarbeitung der 
Eingangsimpulse erforderlich. Zur 
Erzeugung dieser Impulse ist etwas 
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mehr Technik und Auswertungs- 
elektronik nötig als in einem Joy- 
stick. 

Ebenfalls optimal für Grafik ist das 
speziell fürs Malen ausgelegte Gra- 
fiktablett. Die dazu gehörigen Pro- 
gramme (das bekannteste dürfte Ko- 
ala Pad sein) nutzen die Möglichkeı- 
ten des © 64 fast optimal, indem Sıe 
dem Benutzer komfortable Menüs 
(natürlich auf der Basıs des Grafikta- 
bletts) zur Verfügung stellen. 

Nach demselben Prinzip arbeitet 
das Touch-Tablet. Jedoch ıst dessen 
Arbeitsfläche so groß, daß man 
nicht mit einem Stift, sondern mit 
den Fingern darauf malen kann. 

Wenn man von Grafik und anwen- 
derfreundlichen Menüs spricht, 
dann darf die Maus nicht fehlen. Im 
Prinzip ist die Maus ein umgedreh- 
ter Trackball. Auch die Impulse 
werden auf die gleiche Art erzeugt. 
Demnächst soll von NCE eine Maus 
für den C 64 aufden Markt kommen. 
Für den C 128 wird von Commodore 
selbst (zunächst nur in Amerika) eı- 
ne Maus angeboten. Intensiv ge- 
nutzt wird die Maus zur Zeit aller- 
dings nur bei Personal Computern, 
wie zum Beispiel IBM-PC, Macintosh 
oder Amiga. 


Eine runde Sache 


Um eine Alternative zum Joystick 


zu finden, muß man also von der Än- 
wendung, beziehungsweise von 
den Anforderungen ausgehen. Für 
Spiele ist es eindeutig der Track- 
ball, der sich auch für die meisten 
anderen Anwendungen eignet. 
Der Lightpen dürfte seinen Ein- 
satz in menügesteuerten Program- 


men und Grafiksoftware finden. Es 


gibt bereits Lernprogramme mit 
Lichtgriffel, die den natürlichen 
Drang von Kindern ausnutzen, auf 
Gegenstände mit dem Finger zu zeI- 
gen. Das Grafiktablett hat seine An- 
wendung ın den Malprogrammen 
gefunden, während die Maus wohl 
von den professionellen Änwender- 
programmen in Zukunft nicht weg- 
zudenken sein wird. (09) 


Info: Lindy-Elektronik GmbH, Postfach 1428, 6800 Mann- 
heim |, 

NCE, Nordphon Computer Electronic, Fliederbogen 1, 2399 
Tarp 
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Joysticks C 64 


neller Software (wie zum Beı- 
spiel Spielen oder Zeichenpro- 
grammen), fällt es einem schon gar 
nicht mehr auf. Der Gebrauch des 
Joysticks wird hier fast als Selbstver- 
ständlichkeit empfunden. Will man 
es dann selbst einmal versuchen, 
kommt man mit dem Commodore- 
Handbuch nicht weit. Deshalb soll 
hier ein Minimalprogramm zur Ab- 
frage des Joysticks weiterhelfen. 
Diese zehn hier zu erarbeitenden 
Basic-Zeilen können vielleicht eın- 
mal die Basis eines komfortablen 
Menüs bilden. 

Zunächst einmal müssen wir wis- 
sen, was wir mit der Abfrage be- 
zwecken wollen. Um uns aufdas We- 
sentliche konzentrieren zu können, 
bewegen wir einfach ein invertiertes 


B: der Verwendung professio- 








Verfügung, die ebenfalls mit PEEK 

gelesen werden kann. 

20 ME = PEEK(BILD):POKE BILD, 
160: POKE BILD+FARBE, 
PEEK(646) 

Jetzt kommt aber endlich der Joy- 
stick dran. Die Übergabe erfolgt in 
der Varlablen JS: 

30 ]JS= PEEK(PO):BEWEG=0 

BEWESG wird nachher die Summe 
der Bewegungen, die natürlich vor 
der Auswertung von JS auf Null ge- 
setzt werden muß. 

Vom Byte des Joystick-Ports ıinter- 
essieren uns genau die ersten fünf 
Bits, die über die logische Verknüp- 
fung AND ausgefiltert werden. Ein 
vom Joystick aktiviertes Bit hat den 
Wert Null, dem Ruhezustand ent- 
spricht die logische Eins (Vorsicht, 
Pferdefuß). Um auf dem Bildschirm 


Der Trick 





unter unserem »Cursor« wieder her. 

80 IF (JS AND 16)=0 THEN POKE 
BILDME:END 

Um nicht aus dem Bildschirm 

»herauszufahren« (dahinter liegt 

schließlich unser Basic-Programm), 

müssen wir testen, ob die alte Posı- 
tion zuzüglich der Summe der Bewe- 

gungen noch im Bereich von 1024 

bis 2023 liegt. 

90 IF BILD+BEWEG<1024 OR 
BILD+BEWEG >2023 THEN 
BEWEG=0O 

Jetzt brauchen wir nur noch unse- 
ren »Cursor« bewegen. Dazu POKEn 
wir zunächst das vorhin gemerkte 

Zeichen auf die aktuelle Position. 

Dann zählen wir die errechneten 

Bewegungen zur Bildschirmadres- 

se dazu. Alles was bleibt, ıst ein 

Rücksprung zu Zeile 20, um unseren 


mit dem Joystick 


Wissen Sie eigentlich, wie man den Joystick abfragt? 
Wenn nicht, dann söllten Sie'unbedingt weiterlesen. 


Leerzeichen über den Bildschim, 
gesteuert durch den Joystick an Port 
2. Die Abfrage selbst geschieht 
aAurch den Basıc-Befehl PEEK, also 
das Auslesen einer Speicherzelle. 
Im Falle des Port 2 ıst das die Adres- 
se 56320. Für Port 1 wäre es 56321. 
Um uns aufdem Bildschirm orientie- 
ren zu können, benötigen wir des- 
sen Änfangsadresse (1024, das ist 
links oben) und Endadresse (2023, 
rechts unten), sowie den dazugehö- 
rigen Farbspeicher (pro Bildpunkt 
54272 addieren). Unser Programm 
fängt also so an: 
10 PO = 56320: BILD = 1024:FARBE = 
54272 

Als nächstes müssen wir unser 
Zeichen auf den Bildschirm bringen 
— und zwar ohne ein eventuell be- 
reits vorhandenes Zeichen zu verlie- 
ren. Und für den Fall, daß kein altes 
Zeichen vorhanden war, istnoch die 
aktuelle Farbe zu setzen. Das zu 
merkende Zeichen lesen wir mit 
PEEK aus, und heben es in der Va- 
rıable ME auf. Dann schreiben wir 
unser Zeichen (es hat den Code 160) 
mit POKE auf den Bildschirm. Die 
aktuelle Farbe stellt das Betriebssy- 
stem ın der Adresse 646 zu unserer 


24 San 


eine Bewegung nach oben darzu- 
stellen, subtrahiert man von der Po- 
sition des Zeichens den Wert 40. Ei- 
ne Zeile nach oben entspricht dem 
ersten Bit der Varlablen JS. In Basic 
heißt das: 

40 IF JS AND )=0 THEN BEWEG= 

BEWEOG-40 

Mit den anderen Richtungen wird 
es genauso gehandhabt. Abwärts 
entspricht dem zweiten Bit: 

SOIF(JS AND 2)=0 THEN BEWEG = 
BEWEG+40 

Das dritte Bit ıst für Bewegung 
nach links zuständig, und entspricht 
auf dem Bildschirm der Subtraktion 
von Eins: 

S0IF (JS AND 4)=0 THEN BEWEG= 
BEWECG-I 

und nach rechts: 

70IF JS AND 89)=0 THEN BEWEG= 
BEWEG+H] 

Auf diese Weise sind auch die 
möglichen Diagonalbewegungen 
erfaßt, zum Beispiel entspricht die 
Bewegung nach links unten dem 
Wert +39. 

Die letzte Abfrage gilt dem Feu- 
erknopf. Bei dessen Betätigung wol- 
len wir das Programm beenden. Da- 
bei stellen wir natürlich das Zeichen 


Cursor wieder korrekt auf den Bild- 

schirm zu bringen. 

100 POKE BILD,ME:BILD=BILD+ 
BEWEG: GOTO20 

Willman den Joystick an Port 1 an- 
bringen, ist lediglich Zeile 10 zu än- 
dern. Die Adresse ist dann 56321. 
Also: 

10 PO = 56321... 

Um zwei Joysticks gleichzeitig ab- 
zufragen, sind folgende Zeilen um- 
zuschreiben: 

10 Pl= 56321:P2 = 56320:Bl = 1024... 

30 J1=PEEK(P]):J2= PEEK(P2): 
]JS=NOT(NOT Jl OR NOT ]J2): 
BEWEG=O 

Die Verknüpfung entsteht durch 
die negative Logik der Ports. 

Da ein Joystick an Port 1 Zeichen in 
den Tastaturpuffer schreibt, ıst es 
sinnvoll, beim Verlassen des Pro- 
gramms diesen zu löschen; am be- 
sten, indem man in Zeile 80 vor den 
END-Befehl ein »POKE 198,0« setzt. 

Damit wäre unser Minimal-Pro- 
gramm beendet, obwohl es jetzt ei- 
gentlich erst richtig losgeht. Wir hof- 
fen, daß Sie die Joystick-Abfrage in 
Ihren eigenen Programmen ausnut- 
zen können. Dann haben Sie das 
Lernziel erreicht. (09) 
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Wis bringt 
der C 123? 


Der C 128 gilt als Commodores neue 
»Wundermaschine« fürs Büro und 
zu Hause. Die Argumente, die für 
den C 128 sprechen, sind CP/M, 
64er-Kompatibilität, 128 KByte RAM 
und 80 Zeichen pro Zeile. Doch in 
welchen Fällen braucht man diese 
zusätzlichen Fähigkeiten? Lohnt sich 
der Umstieg vom C 64 oder der 
Wir eben Ihnen hier eine 


Neukauf? 


kleine Entscheidungshilfe. 

ie meisten AnfragenzumC 128, 
D:- bei der 64er-Redaktion 
eingehen, beziehen sich — 
merkwürdig genug — auf den 6b4er- 
Modus. Beginnen wir daher mit der 
Betrachtung der Qualitäten des C 
128 als 64er. 

Der C 128 ıst nach Eingabe des 
Kommandos »GO 64« ein beinahe 
perfekter Commodore 64. Das »beı- 
nahe« bezieht sich darauf, daß man 
nicht ganz hundertprozentig sicher 
sein darf, daß tatsächlich alle C 
64-Programme auch wirklich laufen. 
Insbesondere bei Spielen kann man 
da schon mal Pech haben. Beispiels- 
weise läuft »Rescue on Fractalus« 
nicht, weil dieses Spiel merkwürdi- 
gerweise auf eines der beiden zu- 
sätzlichen VIC-Register zugreift, die 
im C 64 gar nicht vorhanden sind. So 
wird also bei diesem Spiel von Fall 
zu Fall das Kontrollbit für 2 MHz- 
Betrieb gesetzt — mit der unange- 
nehmen Konsequenz, daß der VIC- 
Chip sıch abschaltet, weil er nur | 
MHz bewältigen kann. Außerdem 
gerät durch den verdoppelten Pro- 
zessortakt natürlich das gesamte T- 
ming durcheinander. Bei anderen 
Spielen ergeben sich insbesondere 
bei den Kassettenversionen mitun- 
ter Probleme infolge eines zu guten 
Kopierschutzes. 

Wer aber den © 64 näher kennt, 
der weiß, daß solche oder ähnliche 
Phänomene nicht direkt auf man- 
gelnde Kompatibilität zurückzufüh- 
ren sind, sondern zum Teil auch 
beim C 64 auftreten. Im Laufe der 
letzten Jahre gab es nämlich, vom 
Anwender vielfach unbemerkt, ei- 
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Bild 1. Der C 128 kann leicht mit auf Reisen genommen werden 


ne ganze Reihe unterschiedlicher 
Versionen des C 64, von denen ge- 
nau genommen keine mıt der ande- 
ren identisch war. Der unterschied- 
liche Hardware-Aufbau der Platinen 
verschiedener Bauserien zeigt dies 
ganz deutlich. Beispielsweise funk- 
Tanz bei älte- 
ren Geräten einwandfrei, bei neue- 
ren dann nicht mehr. 

Daher sollte man gerade diesem 
Kompatibilitäts-Problem bei der 
Entscheidung für die Anschaffung 
eines C 128 keine allzugroße Bedeu- 
tung einräumen. Schließlich wird 
ohnehin niemand rund 2000 Mark 
für Computer und 157l-Laufwerk 
ausgeben, nur um anschließend 
den C 128 im 64er- und die 1571 im 
1541-Modus laufen zu lassen. 99,5 
Prozent der C 64-Software ıst auf 
dem C 128 ohne Probleme lauffähig, 
und wer damit nichtleben kann, der 
sucht in Wirklichkeit keinen Com- 
puter, der zum C 64 kompatibel ıst, 
sondern einen, der mit dem C 64 
identisch ist — und einen solchen 
gibt es Ja schon seit einigen Jahren 
überall zu kaufen. 


Viel Leistung im 
C 128-Modus 


Wenden wir uns nun dem profes- 
sionelleren Teil des neuen Commo- 
dore zu, dem CC 128-Modus, der eini- 
ges zu leisten vermag. 

Schon die Möglichkeit, die Takt- 
frequenz des Prozessors auf 2 MHz 
zu erhöhen, läßt die Aufmerksam- 


keit für diesen Computer wachsen 
(übrigens kann auch der C 64- 
Modus entsprechend »getuned« 
werden). Ein neues Register im VIC 
ist dafür zuständig. Wenn das Bit 1 im 
Register 48 gesetzt wird, läuft der 
Prozessor in beiden Modi mit 2 MHz. 

Zum zweiten fallen die 128 KByte 
RAM auf, die professionelle Anwen- 
dungen ermöglichen, die dem C 64 
mangels Speicherkapazität ver- 
schlossen bleiben mußten. Für den 
Programmierer ist natürlich das lei- 
stungsstarke Basic 7.0 interessant. 
Die beim © 64 oft schmerzlich ver- 
mißten Grafikbefehle und Program- 
mierhilfen sind hıer vorhanden. Ins- 
gesamthatdasBasic 7.Orechtvielzu 
bieten und ist bei genauer Betrach- 
tung sogar eines der ganz wesentli- 
chen Argumente für den C 128. Mit 
einer Diskussion aller Basic-Befehle 
könnte man leicht ein ganzes Son- 
derheft füllen, deshalb soll an die- 
ser Stelle nicht weiter darauf einge- 
gangen werden. Festzuhalten bleibt 
jedoch, daß das Basic 7.0 den Eın- 
stieg in die Programmierung ein- 
deutig erleichtert, aber auch den 
Profidurch die Fülle der sıch bieten- 
den Mönlichkeiten begeistern wird. 
Für Maschinensprache-Freaks ıst 
der eingebaute Monitor mit Minias- 
sembler interessant. 


Man darf wohl sagen, daß mit die- 
sem Basic und dem verfügbaren 
Speicherplatz eine professionelle 
AnwendungdestC 128 beispielswei- 
se ım kommerziellen Bereich durch- 
aus denkbar ist. Doch gibt es zwei 
Haken bei der Geschichte. 


Ausgabe 11/November 1985 


64er-online.de 
64er-online.net 


u 0 5 


Das eine Problem ist das alte 1541- 
Floppy-Laufwerk, das leider noch 
nicht durchgehend von der schnel- 
len 1571 (Bild 2) abgelöst worden ist. 
Aufgrund seiner extrem langsamen 
Schreib- und Lesegeschwindigkeit 
ist das 154]l-Laufwerk für jegliche 
kommerzielle Anwendung völlig un- 
brauchbar. Solange also der © 128- 
Anwender nicht das Laufwerk 1570/ 
1571 zur sinnvollen Ergänzung des 
Computers zur Verfügung hat, wer- 
den die Fähigkeiten des C 128 wohl 
noch eine Weile ungenutzt inseinem 
Plastikgehäuse schlummern müs- 
sen. 

Der zweite Haken ist das zur Zeit 
noch geringe Software-Angebot 
zum © 128-Modus. Was nützt der be- 
ste Computer, wenn kaum Software 
zu kaufen ist. Die einzig denkbare, 
für professionelle Anwender aber 
wohl unzumutbare Alternative ıst 
die, sich seine professionelle Soft- 
ware selbst zu schreiben. Man kann 
nur hoffen, daß sich in nächster Zeit 
Softwarehersteller in größerer Zahl 
alsbisherandenC 128heranwagen. 


Was bringt der 
CP/M-Modus? 


Doch wozu gibt es die dritte Be- 
triebsart des C 128, das CP/M-Sy- 
stem? Der Z80-Prozessor, der in die- 
sem Modus aktiv wird, verleitet den 
professionellen Anwender schon 
eher dazu, an die Anschaffung eines 
C 128zu denken. Die sich tatsächlich 
ergebende Leistungsfähigkeit des 
Systems läßt jedoch leise Zweifel an 
CP/M aufkommen. | 

Zwar istesnach dem unsäglichen 
CP/M-Modul für den C 64 im zwei- 
ten Anlauf endlich gelungen, ein 
funktionsfähiges CP/M-System als 
Zweit-Betriebssystem auf einem 
Commodore-Rechner zu installie- 
ren, wodurch dem C 128-Besitzer 
die ganze Welt der CP/M-Program- 
me offensteht. 

So schön allerdings der CP/M- 
Modus quasi als Zugabe zum l28er- 
Modus ist, es bleiben doch einige 
Mängel, die es angeraten erschei- 
nen lassen, sich den © 128 nicht aus- 
schließlich wegen des CP/M-Mo- 
dus anzuschaffen. 

Der Z80-Prozessor wird zwar, wie 
bei CP/M-Systemen Standard, mit 
einer Taktfrequenz von 4 MHz be- 
trieben. Um aber nicht das gesamte, 
auf 2 MHz basierende Bussystem 
des C 128durcheinanderzubringen, 
wird der Z80 bei jedem Zugnfi auf 
den Speicher auf 2 MHz abge- 
bremst. Nun stellt auch bereits das 
einfache Holen eines Befehls ja ei- 
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nen Speicherzugriff dar, so daß sich 
eine effektive Taktfrequenz von 
schätzungsweise 2,5 MHz ergibt. - 

CP/M-Software, die ja nicht für ei- 
ne bestimmte Hardware optimiert 
ist und daher bei hardwareorien- 
tierten Operationen wie beispiels- 
weise der Bildschirmausgabe so- 
wieso nicht durch überhöhte Ge- 
schwindigkeit glänzt, wird durch die 
reduzierte Taktfrequenz des Z80 
nochmals gebremst. Ein anderer 
Gesichtspunkt fällt noch schlimmer 
ins Gewicht: CP/M ist ein disketten- 
orientiertes Betriebssystem. Das be- 
deutet, daß die meisten Systemkom- 
mandos als Files auf der Diskette 
vorhanden sind und vor der Äusfüh- 
rung erst geladen werden müssen. 
Außerdem machen praktisch alle 
größeren CP/M-Anwenderpro- 
gramme reichlich Gebrauch von 
der Diskette: Programmteile wer- 
den während der Arbeit mit dem 
Programm dynamisch nachgela- 
den, die meisten Compiler für Pro- 
grammiersprachen übersetzen di- 
rekt von der Diskette auf die Disket- 
te. Das hat zur Folge, daß ein auch 
nur einigermaßen vernünftiges Ar- 
beiten unter CP/M ım Zusammen- 
hang mit der 1541-Floppy völlig un- 
möglich wird. Allein das Booten des 
CP/M-Systems dauertawiirder 1541 
zwei Minuten, die Ausführung einfa- 
cher Kommandos wie »DIR« oder 
»TYPE« wird zur Geduldsprobe. Die 
neue 1570/1571-Floppy ist da mit 16 
Sekunden schon um einiges schnel- 
ler, im Vergleich zu »echten« CP/M- 
Systemen (typisch: 2 bis 4 Sekun- 
den) aber immer noch um eine Grö- 
ßenordnung zu langsam. 

Dennoch kann der C 128 ın Ver- 
bindung mit der Floppystation 
1570/1571 durchaus als, wenn auch 
langsamer, CP/M-Computer be- 
zeichnet werden. Ein großer Vorteil 
dabei ist noch die Fähigkeit dieses 
Laufwerks, sich den verschiedenen 
unter CP/M üblichen Diskettenfor- 
maten von selbst anzupassen. Für 


Bild 2. Erst die 
1571 erlaubt ein 
vernünftiges Arbei- 
ten im CP/M-Modus 
mit dem C 128 


wirklich kommerzielle Anwendun- 
gen, bei denen große Datenmen- 
gen auf Diskette bearbeitet werden 
müssen, zeigen sich allerdings doch 
die durch die Zugriffsgeschwindig- 
keit der Floppy gesetzten Grenzen. 
Für denjenigen aber, der sich mehr 
hobbymäßig mit CP/M beschäfti- 
gen möchte, stellt der CP/M-Modus 
ganz sicher eine Bereicherung des 
C 128-Systems dar. 


C 128 oder C 64? 


Die Glanzlichter desC 128sind oh- 
ne Zweifel die Leistungsfähigkeit im 
128er-Modus und das große Soft- 
ware-Ängebot im 64er-Modus. Der 
CP/M-Modus kann für professionel- 
le Anwendungen nicht so recht 
überzeugen, ist insgesamt aber na- 
türlich dennoch eine Bereicherung 
des Systems. 

Leider läßt das Software-Angebot 
fürden C 128-Modusdochnoch sehr 
zu wünschen übrig. Der Hinweis auf 
den C 64-Modus vermag hier nicht 
ganz zu überzeugen, denn dieser 
Modus nutzt die im C 128 stecken- 
den Möglichkeiten nur zu einem 
Bruchteil aus. 

Letztlich ist es für den Anwender 
auch einfach eine Preisfrage: Mit 
dem C 64 bekommt man für inzwı- 
schen unter 500 Mark einen ausge- 
reiften Computer mit einem Riesen- 
angebot an Software. Wer mit 40 Zei- 
chen pro Zeile und der langsamen 
1541-Floppy leben kann, der ist mit 
dem C 64 sicher noch immer gut be- 
raten, zumal die Unzulänglichkeiten 
des C 64-Basic sich durch entspre- 
chende Basic-Erweiterungen auch 
beheben lassen. 

Das eigentlich Interessante am C 
128 ist eben der C 128-Modus, und 
jeder Interessierte sollte sich prü- 
fen, ob er wirklich einen C 128 will 
und braucht oder nur einen Compu- 
ter, auf dem die © 64-Software läuft. 

(Michael Thomas/ev) 
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Turbo-Pascal auf dem C 128 








Turbo-Pascal hat sich seit seinem ersten Erscheinen vor einigen Jahren zu einer 
Art Neben-Standard für Pascal-Compiler entwickelt. Der Turbo-Compiler gilt als 
einer der schnellsten und leistungsfähigsten Pascal-Compiler überhaupt. 
Unter CP/M ist Turbo-Pascal nun auch für den C 128 verfügbar. 


er einen C 128 besitzt, der 
wird sich sicherlich auch 
schon mitdem CP/M-Modus 
seines Rechners beschäftigt haben. 
Denn mit CP/M eröffnet sich eine 
der größten Softwaresammlungen 
überhaupt. So wird auch das vielge- 
rühmte Turbo-Pascal endlich für 
> Commodore-Anwender verfüg- 
ar. 

Was bietet die moderne und über- 
aus verbreitete Sprache Pascal dem 
C 128-Anwender überhaupt? Hier 
ein kurzer Einblick: 

Mit Pascal lernt man eine sehr 
strukturierte Sprache, bei der man 
den mitunter recht chaotischen Pro- 
grammıerstil von Basıc sehr schnell 
vergißt. Diese nach dem französi- 
schen Mathematiker Blaise Pascal 
benannte Sprache fordert eine ge- 
naue Erfassung des Problems, das 
programmiert werden soll. Mit ein- 
fachem »Drauflosprogrammieren« 
wird man daher nicht sehr weit kom- 
men. 


Was bringt Turbo-Pascal? 


Turbo-Pascal ist stark dem 
Standard-Pascal von Nikolaus 
Wirth, dem Schöpfer von Pascal, an- 
gepaßt, hat aber noch einige Zusät- 
ze und Erweiterungen parat, die das 
Herz eines jeden Pascal-Fans höher 
schlagen lassen: Mit ABSOLUTE 
kann der Programmierer die nor- 
malerweise vom Compiler vergebe- 
ne absolute Speicheradresse von 
Variablen festlegen. EXTERNAL 
dient zum Aufruf von in Assembler 
geschriebenen und getrennt über- 
setzten Prozeduren und Funktionen. 
Mit INLINE kann Maschinenspra- 
che direkt in ein Pascal-Programm 
integriert werden, was bei zeitkriti- 
schen Anwendungen von Bedeu- 
tung sein kann. Die sehr maschinen- 
nahen Operationen SHL und SHR 
entsprechen den Schiebeoperatio- 
nen ın Ässembler. 

Das Attribut PACKED wird vom 
Turbo-Pascal-Compiler zwar ohne 
Murren akzeptiert, hat aber keine 
Wirkung, da Turbo-Pascal ohnehin 
schon einen sehr komprimierten 
Code erzeugt. 
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Doch damit ist das »Sonderzube- 
hör« noch nicht erschöpft. Turbo- 
Pascal stellt noch eine Reihe von 
Standard-Prozeduren, -Funktionen 
und -Konstanten bereit, die die Pro- 
grammierung erleichtern und die 
Möglichkeiten der Problemlösung 
erweitern. 

Der wichtige und oft gebrauchte 
Datentyp STRING, den man sich 
in anderen Pascal-Versionen erst 
selbst definieren muß, ist in Turbo- 
Pascal bereits standardmäßig vor- 
handen. So können Strings ganz 
zwanglos deklariert werden: 

VAR EINGABE: STRINGI[80], 
NAME: STRINGII16]; 

Derart verschieden dimensionier- 
te Strings sind untereinander den- 
noch kompatibel, das heißt sie kön- 
nen untereinander zugewiesen wer- 
den, wobeirmatürichsder eventuell 
längere Teil des zugewiesenen 
Strings abgeschnitten wird. 

Wenn ein größeres Pascal-Projekt 
nicht ganz in den begrenzten Ar- 
beitsspeicher des Computers paßt, 
dann mag das für andere Program- 
miersprachen ein ernstes Problem 
darstellen, nicht so jedoch für 
Turbo-Pascal. Durch das Attribut 
OVERLAY können Pascal-Prozedu- 
ren oder -Funktionen als Overlay- 
Files compiliert werden. Im Spei- 
cher wird dann lediglich Platz für 
die längste aller Overlay-Prozedu- 
ren reserviert. Beim Aufruf einer 
solchen Prozedur oder Funktion 
wird das entsprechende Overlay- 
File nachgeladen und ausgeführt. 
Insbesondere bei Prozeduren, die 
nur wenige Male im Verlauf des Pro- 
gramms aufgerufen werden, ist die- 
se Overlay-Technik sehr effektiv. 


Overlay-Technik löst 
Speicherplatzprobleme 


Eine bemerkenswerte Anzahl von 
Prozeduren ist zur direkten Manipu- 
lation des Speichers vorgesehen. 
Es lassen sich zum Beispiel ohne 
Schwierigkeiten Maschinenpro- 
gramme oder andere Programmda- 
teien vom Pascalprogramm aus la- 
den und starten. Mit einigen Proze- 


duren können sogar Routinen aus 
dem BIOS (Basıc Input/Output Sy- 
stem) und dem BDOS (Basıc Disc 
Operating System) von CP/M ange- 
sprungen und somit das CP/M-Be- 
triebssystem voll ausgenutzt wer- 
den. 

Mit den gleichnamigen Prozedu- 
ren BIOS, BIOSHL, BDOS und 
BDOSHL lassen sich gezielt Routi- 
nen des CP/M-Systems aufrufen 
und für Pascal-Programme nutzbar 
machen; für CP/M-Kenner gerade- 
zu ein Leckerbissen. 


Turbo-Pascal und 
der C 128 


Da Turbo-Pascal unter CP/M läuft, 
ıstesnotwendig, zunächst CP/M von 
der Systemdiskette in Ihren C 128 zu 
laden. Wie Sie vielleicht bereits be- 
merkt haben, tut dies Ihr C128 von 
selbst, wenn Sie ihn anschalten und 
die Systemdiskette im Diskettenlauf- 
werk steckt. Er »bootet« (lädt und 
startet) CP/M automatisch. Das ist 
sowohl mit der 1570/1571-Floppy als 
auch mit der guten alten 1541 mög- 
lich. Von der Verwendung des 1541- 


- Laufwerks kann allerdings nur ab- 


geraten werden. Allein das Hochfah- 
ren des CP/M-Systems benötigt da- 
mit fast zwei volle Minuten. Meldet 
sıch nun endlich CP/M auf dem Bild- 
schirm, darf die Diskette mit Turbo- 
Pascal in das Floppy-Laufwerk ge- 
schoben werden. Wenn Sie noch 
keine Kopie der Original-Diskette 
gemachthaben, dannsolltenSıe das 
spätestens an dieser Stelle tun. Wie 
alle CP/M-Software wird auch Tur- 
bo-Pascal ohne unnütze Kopier- 
schutz-Pfuschereien geliefert. Dafür 
hat jede einzelne Diskette eine Se- 
rıennummer. Wenn man sich nach 
dem Kauf mit einer beigefügten 
Postkarte unter Angabe der Serien- 
nummer als Benutzer registrieren 
läßt, hat man die beruhigende Ge- 
wıßheit, bei Problemen mit dem Pro- 
dukt nicht allein gelassen zu wer- 
den. Beianderen bekannten Softwa- 
re-Produkten erschöpft sich die »Un- 
terstützung« des Benutzers ja oftmals 
mit dem Hinweis »Telefonische An- 
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fragen können leider nicht beant- 
wortet werden«. | 

Nachdem man also jetzt die Origl- 
naldiskette sicherheitshalber ko- 
piert hat, kann's endgültig losgehen. 
Mit DIR listen Sıe das Inhaltsver- 
zeichnis der Diskette und können 
mehrere Files darauf finden. 

TURBOCOM ist der eigentliche 
Compiler, der die gesamte Arbeit 
leistet. Er benötigt zirka 32 KByte 
Speicher. TURBOOVR ist die 
Overlay-Datei zum Turbo-System. 
TURBO.MSG enthält alle Compiler- 
Meldungen im Klartext und kann auf 
Wunsch von Turbo-Pascal geladen 
werden. 

TLISTCOM kann, wenn ein 
Drucker vorhanden ist, den Quell- 
text Ihrer Pascal-Programme auf 
dem Drucker ausgeben. Ein weite- 
res File mit dem Namen README 
gibt nach dem Auflisten mittels 
TYPE-Kommando Informationen 
über die Implementation von Turbo- 
Pascal. 

Daneben gibt es noch einige Bei- 
spielprogramme, mit denen man 
herumexperimentieren kann. Dazu 
gehört auch ein hervorragendes Ta- 
bellenkalkulationsprogramm na- 
mens MC, das vollkommen in Turbo- 
Pascal geschrieben ist. 

Es dauert nun nicht mehr lange, 
bis Turbo-Pascal endgültig sein 
Hauptmenü zeigt und dem Program- 
mieren nichts mehr im Wege steht. 


Professioneller Texteditor 


Wem der Name »WordStar« ein Be- 
griff ist und wer eventuell schon da- 
mit gearbeitethat, der darfsich freu- 
en. Die Kommandos des Pascal-Edı- 
tors sind mit den entsprechenden 
WordStar-Befehlen identisch und 
haben, wenn nicht anders verein- 
bart, auch die gleiche Tastenbele- 
gung. Wer das WordsStar-Textverar- 
beitungssystem noch nicht kennt, 
wird sich dann wohl erst einmal mit 
dem recht dicken Turbo-Pascal 
Handbuch, Stichwort Editor, ver- 
traut machen müssen. Doch obwohl 
die Fülle der Kommandos auf den 
ersten Blick überwältigend ist 
(selbst Block, Such- und Eısetz- 
Kommandos sind vorhanden), ge- 
staltet sich das Arbeiten mit dem 
Turbo-Pascal-Editor doch sehr ein- 
fach und angenehm. 

Der Cursor wird neben den 
WordStar-üblichen Control-Kom- 
mandos auch mit den vier Cursorta- 
sten bewegt, diesich gleich links ne- 
ben den Funktionstasten des C123 
befinden. Auch die INST/DEL-Taste 
hat ihre Funktion behalten, so daß 
man also auch ohne nähere Kennt- 


Ausgabe 11/November 1985 


nisse der einzelnen Editor-Komman- 
dos gleich mit dem Programmieren 
beginnen kann. 

Interessant dürfte sein, daß beim 
Druck der Return-Taste der Cursor 
nicht an den ganz linken Rand der 


neuen Zeile springt. Statt dessen 


plaziert er sich immer unter demer- 
sten Wort der zuletzt eingegebenen 
Zeile. Das Programmieren, mit den 
für Pascal so wichtigen Einrückun- 


gen von Zeilen, wird durch diese 


kleine Feinheit zum Kinderspiel. 

Der Turbo-Compiler besitzt meh- 
rere Funktionen zum Compilieren 
eines Programms. Mit einem Kom- 
mando des Hauptmenüs läßt sich 
ein Untermenü mit den möglichen 
Compiler-Optionen aufrufen, die 
das Übersetzen von Quelltexten auf 
verschiedene Art ermöglichen. Je 
nachdem, welche Option man wählt, 
wird der Compiler bei Aufruf ent- 
sprechend arbeiten. 


Der Turbo-Compiler 


Turbo-Pascal erlaubt es auf 
Wunsch, das im Moment im Spei- 
cher befindliche Quellprogramm zu 
compilieren und auch dort wieder 
abzulegen. Dieses wırd dann vom 
Hauptmenü aus gestartet. So kann 
ein sofortigeim lest, dessnben ge- 
schriebenen Programms erfolgen. 

Der Compier kann auch ein 
Quellfile von Diskette laden und 
compilieren, um das Compilat (das 
übersetzte Programm) dann als 
COM-File wieder auf Diskette zu 
speichern. Dieses File ist später als 


Programmfile von CP/M aus, ohne 


Hilfe von Turbo-Pascal, lade- und 
startfähig, somit also ein vollkom- 
men eigenständiges Programm. 
Schließlich kann der Compiler 
auch sogenannte Chain-Dateien 
(Kennung CHN) verarbeiten. Diese 


Übersetzungen haben keine eige- 


nen Pascal-Bibliotheksroutinen und 
sind somit auch nıcht einzeln für sich 
lauffähig. Sie sind dafür gedacht, 
von anderen 
grammen nachgeladen zu werden, 
um dort zu laufen. 

Der letzte Untermenüpunkt mit 
dem Namen »Find run-time error« ist 
ein gutes Hilfsmittel zum Aufspüren 
von Laufzeitfehlern. Laufzeitfehler 


sind Fehler, die der Compiler nicht: 


erkennen kann, da sie erst beim Äb- 


lauf des compilierten Programms 


auftreten. In diesem Falle unter- 
bricht das Programm und gibt eine 
entsprechende Fehlermeldung und 
die Stelle aus, an der der Fehler auf- 
getreten ist. Nun besteht ein Compi- 
lat nicht mehr aus den Pascalbefeh- 
len, die man im Quelltext eingetippt 


COM-Pascal-Pro- 


hat, sondern aus Maschinencode. 
Die angezeigte Stelle eines Fehlers 
ist deshalb eine Hexadresse. Mit 
dieser Adresse kann man den Lauf- 
fehler im Quellprogramm jedoch 
bequem wiederfinden. Dazu muß 
das Quellprogramm noch einmal 
von Turbo-Pascal geladen werden. 
Ein Aufruf der oben genannten 
Find-Option und die Angabe der 
besagten Hexadıresse genügen, 
und der Editor führt Sie automatisch 
an die Fehlerquelle. Eine praktische 
Sache. 

Doch bevor ein Laufzeitfehler auf- 
treten kann (man will es nicht hof- 
fen), muß man sein Quellprogramm 
selbstverständlich erst compilieren 
lassen. 

Mit der Wahl »C« im Hauptmenü 
startet der Compiler und compiliert 
je nach eingestellter Compiler-Op- 
tion aus eben besprochenem Unter- 
menü. Die Fehlerbehandlung wäh- 
rend der Übersetzung geschieht bei 
Turbo-Pascal auf sehr interessante 
und effektive Weise. Hat der Comp!ı- 
ler einen Fehler gefunden, den er 
nicht akzeptieren kann, läßt er eine 
entsprechende Fehlermeldung auf 
dem Bildschirm erscheinen. Falls 
man die Fehlermeldungen beim 
Start von Turbo-Pascal nicht gela- 
den hat, wird nur die Fehlernummer 
ausgegeben, deren Bedeutung im 
Handbuch nachzulesen ist. Der 
Ubersetzungsvorgang wird ge- 
stoppt und ein Druck auf die Esca- 
pe-Taste (ganz links oben auf der Ta- 
statur) wird erwartet. 

Folgt man dieser Aufforderung, 
startet der Editor automatisch und 
postiert den Cursor ähnlich wıe bei 
der Laufzeitfehlerbehandlung an 
die fehlerhafte Programmstelle. Ei- 
ne überaus effektive Fehlersuche ist 
damit gewährleistet, die man bald 
nicht mehr missen möchte. 


Schnell, schneller, 
turbo ... 


Eine Auflistung des Programmes 

während der Compilation ist nicht 
möglich. Sie würde die Übersetzung 
nur unnötig verlangsamen. 
Denn der Name »TURBO« hält, 
was er beim Lesen verspricht. 
Turbo-Pascal erledigt seine Aufga- 
be in Windeseile und erzeugt ein 
Compilat mit ebensolchen Eigen- 
schaften. 

Wenn ein © 64-Besitzer diese Ge- 
schwindigkeiten bestaunt, sollte er 
aber selbstverständlich daran den- 
ken, daß die Taktfrequenz des Z80- 
Prozessors im C 128 doppelt so hoch 
wie die des 6510 ist und der Compu- 
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ter somit auch um einiges schneller 
arbeiten kann. Leider ist sie aber 
(effektiv) wiederum nur wenig mehr 
als halb so hoch wie beı anderen 
Z80-Computern, was bedeutet, daß 
Turbo-Pascal aufanderen CP/M-Sy- 
stemen noch schneller ist. 

Trotzdem muß man sagen, daß 
Turbo-Pascal der schnellste derzeit 
für den C 128 verfügbare Pascal- 
Compiler ıst. 

Ein Benchmark-Programm, in 
dem eine Integer-Varlable von 0 bis 
2000 hochgezählt wurde, ergab bei 
der Ausführung einen Zeitbedarf 
von nur 0,4 Sekunden (zum Ver- 
gleich: Profi-Pascal 1,0 Sekunden; 
Oxford-Pascal 2,3 Sekunden). 

Betrachtet man diese Zeiten, so 
wird es klar, daß Turbo-Pascal ein- 
deutig der schnellste Compiler ist. 
Die Arbeitsgeschwindigkeit von 
Turbo-Pascal zeigt, was ein Z80-Pro- 
zessor alles vermag. Ein kleiner An- 
stoß vielleicht für manchen Interes- 
sierten, den Z80 näher kennenler- 
nen zu wollen. Ganz sicher aber ein 
gutes Argument für die Qualität von 
Turbo-Pascal. (M.Thomas/ev) 


Info: Turbo-Pascal ist ein eingetragenes Warenzeichen von 
Borland International. Vertrieb in Deutschland: Heimsoeth 
Software, Fraunhoferstr. 13, 8000 München 5, Preis 225 
Mark. 


Doppelte Grafikauflösung für C 128 


Was uns gefiel 


— Sicherheitskopie kann vom Be- 
sitzer angefertigt werden 

— Editor mit den Qualitäten eines 
Textverarbeitungssystems 

— Editor-Kommandos Wordstar- 
kompatibel 

— Extrem schneller Compila- 
tions-Vorgang 

— Hohe Geschwindigkeit des 
übersetzten Programms 

— Sehr komfortable Fehlerkor- 
rektur 

— Einbindung von Maschinen- 
sprache möglıch 

— Automatische Overlay-Technik 
— Hoher Bedienungskomfort und 
hohe Bediensicherheit 

— Wirth-Standard wird unter- 
stützt 

— Viele sinnvolle, zusätzliche 
Standardprozeduren und Funk- 
tionen 

— Standardtyp String mit entspre- 
chenden Funktionen implemen- 
tiert 

— Direkter Zugriff auf CP/M-Sy- 
stem-Ebene und CPU-Register 
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— Hohe Genauigkeit bei reellen 
Zahlen (ll Stellen) 

— Hoher Programmierkomfort 
durch viele Compiler-Optionen 
Automatisches Finden von 
Laufzeit-Fehlern 

— Systemmeldungen editierbar 
— Ausführliches, gut verständli- 
ches Handbuch 

— Sinnvolles, größeres Beispiel- 
programm im Lieferumfang 

— Unterstützung der Turbo-Pas- 
cal-Käufer durch den Hersteller 
— Gemessen an der Leistung, 
sehr preiswert 


Was uns nicht gefiel 


— Handbuch ım Taschenbuch- 
format wird intensive Benutzung 
nicht überstehen 
— Kein Compilerprotokoll auf 
Drucker möglıch 


Die Testergebnisse: 


Ausführung 

o. Ausg. 
2,3 sec 
1,0 sec 
0,4 sec 


Compilation 
3,7 sec r 
24,8 sec (Disk) 25,1 sec 
0,5 sec 30,6 sec 


Oxford-Pascal 
Profi-Pascal 
Turbo-Pascal 








Ein kleines Maschinenprogramm macht dem 80-Zeichen-Videocontroller 
des € 128 Beine und bringt eine Grafikauflösung von 640 x 200 Punkten. 


ie Sıe als stolzer C 128-Besit- 
W= vielleicht wissen, besitzt 

Ihr Computer zwei Arten der 
Zeichendarstellung. Die üblichen 40 
Zeichen pro Zeile und den 80-Zei- 
chen-Bildschirm. 

Schalten Sie auf 80 Zeichen um, so 
übernimmt ein anderer Video-Chip 
die Arbeit des uns vom © 64 her be- 
kannten VIC I und zaubert ein 
80-Zeichen-Feature auf den Bild- 
schirm. Sehen können Sie dabei al- 
lerdings nur etwas, wenn Sie auch 
einen Monitor an der RGB-Buchse 
des C 128 angeschlossen haben, 
denn nur dort sind 80 Zeichen pro 
Zeile möglich. Der 8563-Videocon- 
troller sorgt in diesem Modus für ein 
anständiges Bild. 

Doch er kann noch mehr. Neben 
Buchstaben und Zahlen ausgeben 
ıster fähig, Punktgrafik zuerzeugen, 
und dasin doppelter Auflösung, also 
statt mit den bekannten 320 mal 200 
Punkten nun 640 mal 200 Punkte. Sie 
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haben richtig gelesen. Das sind ins- 
gesamt 128000 Bildpunkte, die ein- 
zeln ansprechbar sınd. Prima, wer- 
den Sie sagen, der C 128 hat Ja die 
vielen tollen Grafikbefehle ... Doch 
halt ! Die Freude ist ein wenig ver- 
früht. Die doppelte Auflösung des 
8563 wird nämlich unverständlicher- 
weise von diesen  Basic-Befehlen 
nicht ausgenutzt. Die ganzen fantasti- 
schen Grafikbefehle desC 128 spre- 
chen nur die vom © 64 bekannte 320 
x 200 Punkte-Grafik an. Warum das 
so ist, das weiß nur Commodore al- 
lein. 

Auch der Versuch, die Punkte ein- 
fach in den Grafikspeicher des 8563 
zu POKEn wird fehlschlagen, denn 
dieser Grafikspeicher ist vom Pro- 
zessor aus nicht ansprechbar. Der 
Videocontroller 8563 steht nämlich 
im Genuß eines eigenen Zeichen- 
speichers von 16 KByte, der nicht im 
normalen Adreßbereich liegt und 
nur Ihm selbst zugänglich ist. 


Doch ganz so eigenständig ist der 
VDC 8563 nun auch nicht. Es muß 
selbstverständlich ein Informations- 
austausch zwischen Videoprozes- 
sor und dem übrigen Computer 
stattfinden können. Den gibt es na- 
türlıch auch. 

Die Verbindung besteht aller- 
dings nur aus 2 Byte ım In- 
put/Output-Bereich mit den Adres- 
sen $D600 und $D601. Durch sie hin- 
durch drängt sich der gesamte In- 
formationsverkehr von VDC 8563 
und Computer. 

Denn der VDC 8563 muß viel wis- 
sen, wenn er ein ordentliches Bild 
erzeugen will. Daer nur seinen »Prı- 
vatspeicher« von 16 KByte kennt, 
kann er auf den Zeichengenerator 
nicht direkt zugreifen. Damit ertrotz- 
dem die Zeichen erzeugen kann, 
wird er beim Anschalten des Com- 
puters mit den nötigen Bytes aus 
dem Zeichengenerator über den 
Engpaß $D600/$D601 gefüttert. 
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Dies geschieht übrigens auch, wenn 
Sie mitder ASCIVYDIN-Taste aufden 
anderen Zeichensatz umschalten. 
Die erhaltenen Zeichen legt er in 
seinemRAMab, damiternundarauf 
zugreifen kann. 

Die Aufteilung seines Speichers 
sieht dann folgendermaßen aus: 


2 KByte Zeichen 

2 KByte Zeichenattribute 

4 KByte Zeichendefinitionen 
8 KByte liegen brach 


Diese Konfiguration gilt für den 
Textmodus des 8563. Doch wehe, 
man setzt im Register 25 das Bit für 
den Grafikmodus, dann läßt der 
VDC 8563 Zeichen Zeichen sein und 
bearbeitet seine 16 KByte im »Bit- 
mapping«-Modus. Das heißt für Je- 
des gesetzte Bit läßt er einen Punkt 
auf dem Monitor leuchten, für jedes 
ungesetzte Bit eben nicht. Sein ge- 
samter Speicher ıst nun Grafiksper- 
cher. 

16 KByte RAM mal 8 Bit ergibt 
nach sorgfältigem Rechnen genau 
128000 Bit, was in unserem Falle 
128000 ansteuerbare Bildpunkte be- 
deutet. Doch wie, werden Sie fra- 
gen, kann man durch nur 2 Byte 
($D600/$D60]1) die Register des 
VDC 8563 oder gar seinen Speicher 
manipulieren? Die Antwort ist ganz 
einfach: Sie lautet indirekte Adres- 
sierung. 

In das erste Verbindungsbyte 
($D600) schreibt man die Nummer 
des Registers, das man ansprechen 
will(der VDC 8563 hat deren 3]). Da- 
nach liest man den Wert des ange- 
steuerten Registers über das zweite 
Byte ($D60]), oder man schreibt den 
gewünschten Wert hinein. Eine ein- 
fache Sache. 

Wie aber kann nun der 16-KByte- 
Speicher des Videocontrollers ma- 
nipuliert werden? 

Der 8563 besitzt mehrere Register, 
von denen einige Informationen 
über die Speicheraufteilung der 16 
KByte geben (Bild ]). 

So gibt es Register, die beispiels- 
weise die Startadresse des 80-Zei- 
chen-Speichers enthalten. In den 
Registern 18 und 19 ist nun eine ak- 
tuelle Adıesse des Videospeichers 
abgelegt, dessen Wert gerade be- 
arbeitet werden soll. Und Register 
31 hält den Inhalt dieser Adresse be- 
reit. 

Man muß also nach obengenann- 
tem Schema die Register 18 und 19 
(HV/LO) mit der Adresse des Video- 
speichers belegen, die man anspre- 
chen will, und kann dann den Inhalt 
dieser Adresse über das Register 31 
auslesen oder sie mit dem ge- 
wünschten Wert beschreiben. 
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Beschreibung der HAPPED-Register: 


#0600: Lesezugriff ergibt STATUS 
Schreibzugriff setzt Registerinhalt 


$D601: Daten: Ein-/Ausgabe 





leichen-Sgeichert $0900...807CF 
Attribut-Speicher: 30800...30FEF 
Zeichengenerator: #2000...SIFFF 


Bild 1. Die Register des VDC 8563 
GaeR Onınakes: 


BANK 15 

SYS DECC"1400") : 
SYS DECC"1406") : 
FOR X = 0 TO 639 
Y=SIN(X/100) 
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VBLANK un, 
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Morizontal Total 
Horizontal Displayed 
Horirontal äjync Position 
Vert/Horz Sync widtn 
Vertical Toral 

NMertical Total Adjust 
Vertical Dizolayed 
Vertical Sync Position 
Interlace "ode 

Character Total Vertical 
Cursor Mode, Start Scan 
Cursor End Scan Line 
Display Start Address hi 
Display Start Address Io 
Cursor Position hi 
Cursor Position lo 

Light Pen Vertical 

Light Pen Horizontal 
Update Address Hi 

Update Address lo 
Attribute Start Adr Ki 
Attribute Start Adr Io 
Character Tot{h), Dso(v) 
Character Dsp(v) 
Vertical smooth scroll 
Horizontal smooth scroll 
foregnd/8gnd Color 
Address Incresent / Row 
Character 3ase Äjdress 
Underline scan line 

Word Count 

Data 

Block Start Address hi 
Block Start Address lo 
Display Enable Bezin 
Display Enable End 

DRAF Refresh rate 





“*# GRAFIK EINSCHALTEN 
“r* BILDSCHIRM LÖSCHEN 


: REM *** SINUSWERT BERECHNEN 


Yz99*Y+100 : REM *** WERT AN BILDSCHIRMAUSGABE ANPASSEN 
SYS DECL"140F"), INTCX/256), X AND 255, Y 


NEXT X 
SYS DEC("1403") 
SYS DECC"1409") 


REM *** TEXT EINSCHALTEN 
REM *** ZEICHENSATZ NEU LADEN, EDITOR INITIALISIEREN 


Listing 2. Eine Demonstration der hochauflösenden 80-Zeichen-Grafik 


Um Ihnen den Aufwand zu erspa- 
ren, ein eigenes Programm schrei- 
ben zu müssen, das die Grafik des 
8563 ausnutzt, haben wir ein Ässem- 
blerlisting (Listing |) dazu abge- 
druckt. Es stammt aus dem Commo- 
dore 128-Handbuch von Peter Ro- 
senbeck (Markt & Technik-Verlag). 
sie können dieses Programm direkt 
mit dem in den C 128 integrierten 
Maschinensprache-Monitor einge- 
ben. 

Es übernimmt die Arbeit der ge- 
rade erwähnten Prozedur der indıi- 
rekten Adressierung des VDC 8563 
und bietet auch eine Routine zum 
Punkte setzen und löschen. Ein un- 
entbehrliches Werkzeug für die Ar- 





beit mit der 640 mal 200 Punkte-Gra- 
fik auf dem 80-Zeichenbildschirm. 

Die einzelnen Routinen können 
über den SYS-Befehl angesprochen 
werden, wie es das kleine Basic- 
Beispielprogramm (Listing 2) zeigt. 
Die X- und Y-Koordinaten werden 
einfach mit dem SYS-Befehl überge- 
ben (Zeile 160). Das Beispielpro- 
gramm erzeugt eine Sinuskurve auf 
dem Monitor. 

Wer Spaß daran hat, kann sich 
weitere Routinen (zum Beispiel zum 
Linien ziehen) dazuschreiben und 
somit die Grafikfähigkeiten des 
VDC 8563 voll ausnutzen. 


(M’Ihomas/ev) 
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1400 4c 1e 14 jmp $141e ;Crafikmodus anschalten 1479 48 pha ;A retten 14e3 e0 80 cepx #$80 ;LO von X-Koord. zu groß? 
1403 4c 26 14 jmp $1426 ;Grafikmodus einschalten 147a a9 1f lda #$1f ;Register 31 14e5 10 4d bpl $1534 ;wenn ja, keine 
1406 4c 87 14 jmp $1487 ;Grafikbildschirm löschen 147c 8d 00 d6 sta $d600 ;ansteuern Adreßberechnung 
1409 4e 62 ff jmp $ff62 ;Zeichensatz neu laden 147f 20 45 14 jsr $1445 ;testen auf Statusbit 14e7 cO c8 epy #$c8 ;Y-Koord. zu groß? 
140c 4e 81 ff jmp $ff81 ;Editor initialisieren 1482 68 pla ;A wieder holen 14829 p0 49 bes $1534 ;wenn ja, dann keine 
140f 4c a3 14 jmp $14a3 ;Punkt setzen 1483 8d 01 d6 sta $d601 ;in aktuelle Adr. speichern Adreßberechnung 
1412 4e 94 14 jmp $149d ;Punkt löschen 1486 60 rts 14eb 48 pha ;HI X-Koord. retten 
1415 4c ?? 2? jmp $???? ;frei für Erweiterungen 14ec Ba txa ;LO X-Koord. 
1418 4c ?? 2? jmp $?222 ;frei für Erweiterungen i4ed 48 pha ‚retten 
1416 4c ?? 2? jmp $?2??? ;frei für Erweiterungen ;Bildschirm löschen 14ee 98 tya 
14ef 29 0f and #$0f 
;Grafikmodus anschalten 1487 a2 00 ldx #%$00 ;HI Adresse von Bildschirm in X 14f1 aa tax 
1489 a0 00 ldy #$00 ;LO Adresse in Y 14f2 dd 40 15 1da $1540,x;L0-Wert aus Tabelle 1 
141e a9 80 lda #$80 ;Bit 7 setzen 148b 20 2e 14 jsr $142e ;aktuelle Adresse setzen 14f5 85 ci sta $c1 ‚ablegen 
1420 a2 19 ldx #$19 ;Register 25 148e 20 51 14 jsr $1451 ;Wortzähler Null setzen 14£7 bd 50 15 Ida $1550,x;HI-Wert aus Tabelle 2 
1422 20 cc cd jsr $cdcce ;Register 25 mit 1491 20 5f 14 jsr $145f ;Datenbyte Null setzen 14fa 85 c2 sta $c2 ‚ablegen 
$80 besetzen 1494 c8 iny ;nächste Adresse 14fc 98 tya 
1425 60 rts 1495 d0 f4 bne $148b 14fd 29 £O and #$f0 
1497 e8 inx 14ff 4a lsr 
;Grafikmodus ausschalten 1498 e0 40 cpx #$%0 ;letzte Adresse von Bildschirm? 1500 4a lsr 
149a dO ef bne $148b ;nein, dann nächste Adresse 1501 4a lsr 
1426 a9 40 ida #$40 ;Bit 6 setzen 149c 60 rts 1502 4a lsr 
1428 a2 19 1dx #$19 ;Register 25 1503 aa tax 
142a 20 cc cd jsr $edee ;Register 25 mit ;Punkt löschen 1504 bd 60 15 Ida $1560,x;HI-Wert aus Tabelle 3 
$40 besetzen 1507 18 ele 
1424 60 rts 1494 48 pha ;A retten 1508 65 c2 ade $c2 ;dazuzählen 
149e a9 00 lda #%00 ;Flag für Löschen 150a 85 c2 sta $c2 
;aktuelle Adresse setzen (in X und Y) 14a0 4e 86 14 jmp $14a6 ;Punkt löschen 150c 68 pla 
150d aa tax 
142e a9 12 lda #$12 ;Register 18 ;Punkt setzen 150e 68 pla 
1430 84 00 d6 sta $d600 ;ansteuern 150f a8 tay 
1433 8e 01 d6 stx $d601 ;HI von Adresse nach Reg. 18 1423 48 pha ;A retten 1510 b9 70 15 1da $1570,y;L0-Wert aus Tabelle 4 
1436 20 45 14 jsr $1445 ;Varten auf Statusbit 14a4 a9 ff lda #$ff Flag für Setzen 1513 18 elce 
1439 a9 13 lda #$13 ;Register 19 1426 85 c3 sta $c3  ;zwischenspeichern 1514 65 ci ade $c1 ;dazuzählen 
143b 8d 00 d6 sta $d600 ;ansteuern 1428 68 pla ;A wieder holen 1516 85 c1 sta $c1 
143e 8c 01 d6 sty $d601 ;LO von Adresse 1429 20 db 14 jsr $14db ;Adressberechnung 1518 90 02 bee $151c 
nach Reg. 19 (X-Koord. in A,X 151a e6 c2 ine $c2 
1441 20 45 14 jsr $1445 ;Warten auf Statusbit ; Y-Koord. in Y) 151e 8a txa 
1444 60 rts 14ae b0 ee bes $149e ;Angaben außerhalb 151d 29 f8 and #$f8 
des Bereichs 151f 4a lsr 
;Warten bis Statusbit gesetzt 14ae 85 c4 (Wise el 1520 4a lsr 
zwischenspeichern 1521 4a lsr 
1445 2c 00 d6 bit $d600 ;Bit 7 (Status) gesetzt 14b0 a4 c1 ldy $c1 ;LO Adresse nach Y 1522 18 ele 
1448 10 fb bp1 $1445 ;nein, dann warte 14b2 a6 c2 ldx $c2 ;HI Adresse nach X- 1523 65 ci ade $c1 
144a 60 rts 14b4 20 2e 14 jsr $142e ;aktuelle Adresse 1525 85 ci sta $c1 
(in X/Y) setzen 1527 9% 02 bee $152b 
;Warten bis Statusbit gelöscht 14b7 20 6d 14 jsr $146d ;Datenbyte aus aktueller 1529 e6 c2 ine $c2 
Adr. nach A holen 152b Ba txa 
144b 2c 00 d6 bit $d600 ;Bit 7 (Status) gelöscht 14ba 48 pha ;retten 152c 29 07 and #$07 
144e 30 bmi $144b ;nein, dann warten 14bb 85 c3 Ida $c3  ;Flag für setzen/löschen 152e aa tax 
1450 60 rts nach Adr. fO 06 152f bd 73 15 1da $1573,x;Bitmaske aus Tabelle 5 
14bd fO 06 beq $14c5 ;Punkt löschen, dann 1532 18 elc ;holen 
;Wortzähler Null setzen zu Löschen 1533 60 rts 
14bf 68 pla ;Datenbyte wieder holen 1534 38 sec 
1451 a9 le lda #$1e ;Register 30 1400 05 c4 ora $c4 ;mit Bitmaske verknüpfen 1535 60 rts 


1453 8d 00 d6 sta $d600 
1456 20 45 14 jsr $1445 


;ansteuern 
;Warten auf Statusbit 


1402 4c ce 14 jmp $i4ce 


(Bit setzen) 
;zum Abspeichern 


;Tabellen für Adreßberechnung 


1459 a9 00 lda #$00 ;Register 30 1405 68 pla ;Datenbyte wieder holen 
145b 8d 01 d6 sta $d601 ;Null setzen 14c6 85 c3 sta $c3_ ;zwischenspeichern Tabelle 1 
145e 60 rts 1408 a5 c4 lda $c4 ;Bitmaske nach A 

14ca 49 ff eor #$ff ;alle Bits umdrehen : 1540 00 50 a0 fO 40 90 eO 30 
;Datenbyte Null setzen l4ce 25 c3 and $c3 ;mit Datenbyte verknüpfen : 1548 80 dO 20 70 cO 10 60 bO 

(1öschen) 

145f a9 ıf Ida #$1f ;Register 31 14ce 48 pha ;neues Datenbyte retten Tabelle 2 
1461 8d 00 d6 sta $d600 ;ansteuern 14cf a4 ci ldy $c1 ;LO Adresse nach Y 
1464 20 45 14 jsr $1445 ;Warten auf Statusbit 14d1 a6 c2 ldx $c2 ;HI Adressenach X : 1550 00 00 00 00 01 01 01 02 
1467 a9 00 lda #0 ;Register 31 1443 20 Ze 14 jsr $142e ;aktuelle Adresse setzen : 1558 02 02 03 03 03 04 04 04 
1469 8d 01 d6 sta $d601 ;Null setzen 1446 68 pla ;neues Datenbyte wieder holen 


146c 60 rts 


;Datenbyte nach A holen 


146d a9 1? lda #$1f 


;Register 31 


1447 20 79 14 jsr $1479 


14da 60 


rts 


;Datenbyte in aktueller 
Adr. ablegen 


Tabelle 3 


: 1560 00 05 0a Of 14 19 1e 23 
: 1568 28 2d 32 37 3c 41 46 00 


146f 8d 00 d6 sta $d600 ;ansteuern ;Adresse berechnen (X-Koord. in A/X; Y-Koord. in Y) Tabelle 4 
1472 20 45 14 jsr $1445 ;Warten auf Statusbit ;Adresse nach $C1/$C2; Bitmaske nach A 
1475 ad 01 d6 lda $d601 ;Byte nach A holen : 1570 00 20 40 
1478 60 rts 14db c9 03 cmp #$03 ;A größer gleich 3? 
14dd bO 55 bes, $1534 ;wenn ja, dann ord. zu groß Tabelle 5 (Bitmasken) 
;Datenbyte (in A) in aktuelle’ Adresse 14df c9 02 cmp #$02 ;A kleiner 2? 
;ablegen 14e1 do 04 bne $14e7 ;wenn ja, dann X-Koord. ok : 1573 80 40 20 10 08 04 02 01 


Listing 1. Assemblerprogramm zur Nutzung der verborgenen Grafikfühigkeiten des C 128 
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nach einem universell einsetz- 

baren Drucker macht, sollte den 
Gedanken an einen Farbdrucker 
nicht sofort beiseite schieben. Der 
]X-80 (Bild ]) ist eine direkte Weiter- 
entwicklung der Epson FX-Klasse, 
die seit Jahren den Druckermarkt 
maßgeblich prägt. Zu diesem Erfolg 
führten die fast nicht überschauba- 
ren Möglichkeiten dieser Drucker 
und Ihre einfache Ansteuerbarkeit. 
Die Vielfalt umfaßt nicht nur neun in- 
ternationale Zeichensätze oder ei- 
nen definierbaren Zeichensatz, son- 
dern auch vielfältige Möglichkeiten 
der optischen Darstellung (Bild 2 
und 3). Der JX-80 beherrscht diese 
Fähigkeiten in gleicher Weise wie 
der FX-80, er unterscheidet sich le- 
diglich durch einen etwas anderen 
Druckmechanismus und die Befeh- 
le zur Farbsteuerung. Dabei ist der 
JX-80, wie man im täglichen Betrieb 
feststellen wird, problemlos zu steu- 
ern. Selbst der Mischbetrieb ver- 
schiedener Modi ist ohne Schwie- 
rigkeiten durchzuführen. 

Doch wer glaubt, nun seien die 
Möglichkeiten der Programmie- 
rung erschöpft, sieht sich getäuscht. 
Eine große Zahl von Formatanwei- 
sungen sınd einsetzbar. So kann der 
linke und der rechte Rand gewählt 
werden. Vertikale und horizontale 
Tabulatoren und auch das Ansprin- 
gen der Tabulatoren im Text, wird 
mittels ESC-Befehlen möglich. Die 
Seitenlänge ist in Zeilen oder Inch 


J# der sıch auf die Suche 


Fr 


Bild 2. Der fünffach vergrößerte 
Buchstabe A der Normalschrift 


38 Zar 





Enson JX-80 — 
Das vielfarbige 
Druck-Genie 


Jetzt kommt Farbe auf das Papier. Der 
JX-80 ergänzt einen Farbcomputer wie 
den C 64 in beinahe idealer Weise. 


wählbar und der Zeillenabstand ist 
fast stufenlos einzustellen. Der soge- 
nannte Bit-Image-Modus ist das Ge- 
heimnis der hochauflösenden Gra- 
fik des JX-80. Mit normaler, doppel- 
ter, und sogar vierfacher Dichte 
kann der JX-80 Grafik darstellen — 
und das ın Farbe. Dabei varliert die 
Anzahl der Punkte je Zeile zwischen 
480 und 1920. 

Nun ist eine Vielzahl an Varlatio- 
nen aufgezählt, doch der Gipfel der 
Möglichkeiten ist noch nicht ganz er- 
reicht. Dank des Farbmodus und 
des Farbbandesumtssen Farben 
Schwarz, Rot, Blau und Grün sind 


Bild 1. Epson JX-80 — 


C 64 





der Regenbogendrucker 


diese Farben und alle durch Dop- 
peldruck erreichbaren Kombinatio- 
nen möglich. Eine spezielle Druck- 
logik verhindert, daß Mischfarben 
überproportional stark gegenüber 
den reinen Farben betont werden. 
Auch zur Steuerung der Farben 
wurden die ESC-Befehle konse- 
auent verwendet. Eine der reizvoll- 
sten Anwendungen eines Farb- 
druckers ist es, den Bildschirm mit 
allen seinen Farben auszudrucken 
(Bild 4). Wenn jedes selbsterstellte 
farbige Kunstwerk (zum Beispiel mit 
dem Koala Painter) bislang auf dem 
Drucker ein eher graues Dasein 


Der JX 80 ist ein Alleskönner, der außer NL® keine 


Wünsche offen läßt. 


gibt nichts, 
inbreit 


das er nicht kann. 


und unterstreichen ist möglıch. 
Soll etwas herausgestellt werden, 


Kursivschrift geschehen. 


bb Brei tschri fc, 
adertSchsälschi ft, PP ep ee 


Subscribe - 22 


Auch Doppeldruck 


so kann dies In 


Bild 3. Die Schriften des JX-80 — es fehlt nur noch die NLQ-Schrift 


Technische Daten 


Name des Druckers 
Schriftarten 


: Epson JX-80 


Unidirektional 


Geschwindigkeit 
NLOQ-Schrift 
Unterstreichen : Ja 


: Nein 


:1x9 
ı Einzel-/Endlos 
:O bis 137 


Zeichenmatrix 
Papierarten 
Spaltenbreite v-b 
Selbsttest 
Schnittstellen 
Pufferspeicher 
Rückwärtstransp. 
Grafikmodi 
Sonderfunktionen 
Funktionstasten 
Ausstattung 


: 2 KByte 
: Nein 





:Ja Hexdump: Ja 
: Centronics, wahlweise RS232C, IEEE 488 


Hor.Tab.: Ja 

: 480 bis 1920 Punkte pro Zeile 
: Befehle zur Farbsteuerung 

: On-Line, FF, LF 

: Farbband, Handbuch englisch, Papierseparator 


: Elite, Fett, Breit, Schmal, Doppeldruck, Hoch-/Tiefgestellt, 


: angegeben:160 Z/s; gemessen:158 Z/s; Probetext: 1:58 


NLO-Geschw. : entfällt 

Proportional. : Ja 

Zeichenvorrat : 96 ASCII, International 
Durchschläge : 2 

Papierbreite : bis 254 mm 
Automatischer Einzelbl.Einz.: Nein 


Ladbarer Zeichens.: Ja 
Ver-Tab.: Ja 
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BFARBIGE HARDCOFY VON KOALAH 
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*% 


REM ** 
“. 


AINTER-BILDERN AUF JX-80H 


WRITTEN BY: 


MICHAEL BOERNER 
IM WINKEL 8 

&7197 WEISENHEIM AM BERG 
TEL: 28353/8825 


FHrrkrkekekrkri 


KERRRKRRRRNERERITKH HH NN HR ER 
ZUERST DISKETTE EINLEGEN ## 
DANN "RUN’ EINGEBEN *%* 


REM HS ERRERHEHRTEHRTHHIHTRTEH HN 


REM" 
üOFEN i 
FRINT# 


‚8,1,"F.HCOPY JX KOALA,P,W" 
1 ,CHR$ (B) CHR$ (16); 


FOR N= i TO #&23:READ A 


A=ASC ( 


A=A-48-(7 AND A>64) :B=B-45-(7 AND EB>64) 


{=16*A 
NEXT:C 
IF Y=7 
FRINT" 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


AF) = B=ASC (RIGHTF(AF,1)) 


+B: Y=Y+X: PRINT#1 ,CHR$ (X) 3 
LOSE 1:FPRINT CHR$(18); 

2798 THEN PRINT"OK !":END 
FEHLER IN DATAS":END 
A9,00,AQ,60,4C,32,12,00,08,FF 
FF,81,81,02,FF,31,02,02,04,02 
022,04,04,04,21,04,20,21,904,02 
20,00,FF,04,02,02,FF,FF,FF,@i 
072,24,88,10,20,40,80,40,20,1® 
08,04,02,01,10,87,40,7F,40,7F 
28,83,0F,GF,FO,F®,@F,@F,aF,@r 
18,87,40,7F,40,7F,28,85,A9,1B 
?@,DD,ED,A9,2A,20,DD,ED,A9,04 
2@,DD,ED,A9,40,20,DD,ED,A9,D1 
2@,DD,ED,60,AQ,18,D2,07?,A8,0® 
A9,1B,28,DD,ED,A9,33,2@,DD,ED 
98,28,DD,ED,598,A9,00,A®,1E,85 
FB,84,FC,AQ,20,B1,FB,D@,13,E6 
FB,DD,22,E4,FC,AS,FB,C9,48,D0 
FQ,AS,FC,C9,1F,DB,EA,60,A9,28 
85,FD,A9,208,ADd,1E,85,FB,84,FC 
AF,1B,28,DD,ED,A9,72,28,DD,ED 


<B96> 
<972> 
204 > 
«B78> 
<202> 
<B37> 
<294 > 
<204> 
.08597> 
<B539> 
<15B> 
<127> 
BA8> 
<BB5> 
<B78> 
<179> 
<B85> 
<B81> 
<197> 
<Bd55> 
<B358> 
<147> 
084> 
<B82> 
{236> 
<D797> 
<B34> 
<B&2> 
<«148> 
<0973> 
<176> 
<205> 
<084 > 
<19B> 
<B77> 
<231> 
<1B1> 
“2127 
<119> 
<Q74> 
<182> 
<948> 


LE 
xB7&> 
<144> 


125 
126 
127 
1286 
129 
130 
131 
132 
133 
134 
135 
1365 
157 
1.38 
159 
140 
141 
142 
145 
144 
145 
146 
147 
148 
147 
158 
151 
152 
155 
154 
155 
15& 
157 
158 
157 


chen 


161 DATA 


162 


DATA 
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AS,8D,28,DD,ED,29,4E,18,A2,07 
A9F,20,95,A4,CA,10,FE,AQ,07,Bi 
FB,85,BE,A2,87,A5,BE,3D,27,18 
F0,07,B5,A4,19,2E,19,95,A4,CA 
1D,EF,88,10,E64,A5,FB,18,69,88 
85,FB,90,82,E6,FC,A2,07,B5,A4 
20,DD,ED,CA,18,F8,C64,FD,D2,C2 
AF,2D,20,DD,ED,40,A9,19,85,9E 
29,6C,19,A9,20,85,9F,A9,04,85 
8D,AS5,8B,A4,8C0,85,FB,84,FC,A9 
DO,AR,1E,85,B5,84,B6,49,28,85 
BE,AQ,87,B9,36,10,99,A4,20,88 
198,F7,A2,07,A9,098,71,B5,88,1® 
FB,A9,08,85,22,AB,88,B1,FB,2A 
2A,2A,2A,20,56,12,D9,064,AQ,00 
A9,CD,91,B5,AQd,00,B1,FB,6A,6A 
5A,20,55,17,D8,08,AQ,00,B1,BS 
09,50,971,B5,AQD,00,B1,FE,6A,28 
55,12,D9,08,AQ,22,E1,E5,29,02C 
91,B5,AQ,0@,EB1,FB,2A,20,56,12 
D2,28,AQ,00,E1,B5,09,03,91,B5 
E6,B5,D9,02,E6,B4,E6,FB,D®,@2 
E&. FC.E6.22:F0,03,4C,3B,11JE4 
AA,DB,02,E6,AB,E6,A6,E6,A8,D® 
04 ,E4,A7,E6,A9,C64,BE,F®,03,4C 
2E,11,2@,7D,10,A9,8D,2@,DD,ED 
A9,7F,8D,20,DC,AD,21,DC,C9,7F 
F8,5B,C6,8D,38,0B,A5,8D,6C9,03 
D9,02,C6,8D,4C,0F,11,E6,9F,A5 
9F,C9,02,F2,83,4C,0B,11,29,68 
19,A9,0A,28,DD,ED,29,6C,18,C& 
9E,F®,52,AD,S3C,19,18,69,28,8D 
ZC,10,90,03,EE,53D,18,AD,38,18 
18,69,28,8D,38,10,8D,3A,10,90 
B64,EE,39,18,EE,3B,19,A5,8B,18 
67,48,85,8B,A5,8C,69,21,85,8C 
4C,07,11,28,58,18,A9,2A,2@,DD 
ED,A?,00,20,DD,ED,AF,94,28,FE 
ED,68,85,8B,84,8C,AQ,07,E9,46 
108,99,56,10,88,18,F7,A9,00,85 
70,49,84,20,0C,ED,A9,60,20,B9 
ED,AS,70,38,DE,4C,99,11,29,06 
AA,A1,A4,E0,22,D9,04,44,4A,4A 
4A,29,BF,OA,65,9F,A8,AS,8D,D9 
07,10, 


<238B> 
<228> 
<178> 
<Q44 > 
«2974 > 
<128> 
<Böl> 
<D354> 
<215> 
<B67> 
<185> 
<B7B> 
<x214> 
<199> 
<2535> 
<251> 
<BB9 > 
ET Ep 
237? 
<128> 
<166> 
<B&42> 
<9099> 
<196> 
254 > 
<B31> 
<124> 
<B879> 
<B94 > 
23357 
<B76> 
<246> 
<Bab> 
<128> 
<B81> 
<x217> 
“124> 
<B64> 
<B55> 
<B07> 
137? 
<a51> 
<233> 
<SLF1L> 
<229> 








führte, so ändert sich das durch den 
JX-80. Obwohl die Steuerung der 
Farben prinzipiell sehr einfach mit 
ESC-Befehlen zu erreichen ist, ge- 
hören zu einer originalgetreuen 
Hardcopy noch einige Tricks. Sie 
sorgen dafür, daß der Farbspeicher 
des C 64 richtig interpretiert und die 
Farben aus den zur Verfügung ste- 
henden vier Farben richtig ge- 
mischt werden. Das im Listing abge- 
druckte Programm »Koala-Hardco- 
py« übernimmt diese Steuerung auf 
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A Listing. Koala- 
Hardcopy und der 
JX-80 — das 
farbige Wunder 


Bild 4. 

Farbige Hardcopies — 
ein völlig neues 
Druckergefühl 


elegante Weise. Beachten Sie, daß 
das abgedruckte Programm erstein 
ausführbares Maschinenprogramm 
erzeugt und auf Diskette abspei- 
chert. Das erzeugte Maschinenpro- 
gramm muß immer absolut, das 
heißt mit»F. HCOPY JX Koala«,8,1 ge- 
laden werden. Nach dem Laden ge- 
ben Sie NEW ein, laden ihr Koala- 
Bild und starten den Ausdruck mit 
SYS 4096. Alles andere erledigt 
das Programm. So eine Bildschirm- 
Hardcopy ist-allerdings für das 49 


Mark kostende Farbband eine ziem- 
liche Strapaze. Man sollte das farbi- 
ge Band auch nur dann verwenden, 
wenn wirklich Farbe gebraucht 
wird. Für den alltäglichen Druckbe- 
trieb, beispielsweise zur Textverar- 
beitung, zu der der ]JX-80 ebensogut 
wie der FX-80 geeignet ist, genügt 
es, daß ebenfalls passende Farb- 
band des FX-80 (23 Mark) zu ver- 
wenden. 

Der JX-80 gehört ohne jeden Zwei- 
fel in die Drucker-Spitzenklasse. 
Wenn er auch mit 2398 Mark, ohne 
Interface, nıcht billig ist, so bietet er 
für den Anwender, der die Text-und 
Farbfähigkeit nutzt, eigentlich alles, 
was das Herz begehrt. Um aus dem 
JX-80 einen Drucker der Superlative 
zumachen, bedarfesnurnoch weni- 
ger Ergänzungen. Da ist zum einen 
die Traktorführung; sie sollte der 
des FX-85 nachempfunden werden 
und zum anderen sollte eine Near 
Letter Quality-Schrift implementiert 
werden. Dies realisiert und gepaart 
mit der Farbfähigkeit, wäre dann 
wohl kaum mehr zu überbieten. 

(E. Konther/M. Börner/aw) 


Info: Epson Deutschland GmbH, Zülpicher Straße 6, 
4000 Düsseldorf 11 
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MPS 803 — 


Ein Drucker 
für alle 











(Bild ]) ein optisch ansprechen- 

des, kompaktes Gerät, das 
sich auf altbekannte Art mit einem 
einfachen Kabel direkt an den C 64 
anschließen läßt. Neu sind zwei bis- 
her bei Commodore nicht übliche 
Schalter auf der Geräterückseite. 
Diese sınd mit LPI (Lines per Inch = 
Zeilenabstand) und Device (Geräte- 
adresse) bezeichnet. Mit ihrer Hilfe 
wird zumindest das Einstellen die- 
ser Werte problemlos. 


Nur für Fingerakrobaten 


Nach dem Abnehmen des Gehäu- 
seoberteills fällt der etwas zierlich 
geratene Druckkopf ins Auge. Die 
Farbbandkassette ist ebenfalls sehr 
klein und erweckt den Eindruck, als 
gehöre sıe nicht zu diesem Drucker. 
Ein Blick ins Handbuch widerlegt 
dıesen Eindruck aber bald: Die Kas- 
sette Ist nur halb so breit wie der 
möglıche Druckweg. Dies hat zur 
Folge, daß eine an der Kassette an- 
gesteckte, bewegliche Bandfüh- 
rung herausgezogen und ganz 
rechts im Drucker in eine Lasche 
gesteckt werden muß. Dies hört sich 
nicht nur kompliziert an, das ist es 
auch. Nach einiger Übung mag es 
gelingen, das Farbband richtig und 
ohne es mehrmals aus der Führung 
zu verlieren einzulegen. Ohne 
schwarze Finger geht es aber auch 
dann nicht. Es wäre auf jeden Fall 
besser gewesen, das Farbband des 
MPS 802 zu verwenden. 

Der Papiereinzug des MPS 803 ist 
für Einzelblätter und Endlos-Rollen- 
papier gedacht, denn es fehlt jede 
Papierführung oder ein Traktoran- 
trıeb. Ein Traktor muß für etwa 100 
Mark hinzugekauft werden. Diese 


40 Isar 


R:: äußerlich ıst der MPS 803 


Gelegenheiten? 


Der MPS 801 und MPS 802 sind Com- 
modore-Drucker, die noch so manchen 
Wunsch offenließen. Der MPS 803 
scheint diese Tradition fortzusetzen. 





Investition lohnt sich aber in Jedem 
Fall, denn wenn man den Fehler be- 
geht, das Papier nıcht genau gerade 
einzulegen, so wandert es unwel- 
gerlich in die eine oder andere 
Richtung. Für eine Textverarbeitung 
ist der MPS 803 aber nicht nur we- 
gen dieser Tatsache ungeeignet. 
Diese Anwendungen bleiben dem 
MPS 803 auch wegen seines Zei- 
chensatzes;svorenthalies; Der Zeı- 
chensatzistaufden C 64 abgestimmt 
und hat demzufolge keine Umlaute. 
Es besteht zwar die Möglichkeit, 
sich dıe Umlaute ım Grafikmodus 
selbst zu definieren, leider wird die- 
se Funktion nur von den wenigsten 
Textprogrammen unterstützt. Äber 
selbst wenn man sıch damit abfin- 
den könnte, das Aussehen der ein- 
zelnen Buchstaben, besonders der 
Buchstaben mit Unterlängen, kann 
nur als unharmonisch bezeichnet 
werden. Es gibt keine echten Unter- 
längen. Das heißt, alle Buchstaben 
mit Unterlängen werden einfach an- 
gehoben und schweben erhaben 
über dem Rest des Wortes. Zusam- 
men mitdem ohnehin nicht überzeu- 
genden Druckbild (Bild 2 und 3), 
wird wohl kaum jemand aufdie Idee 
kommen, Briefe mit diesem Schrift- 


Bild 2. Das Schriftbild des MPS 803. 
Es fehlen Umlaute und Unterlängen 
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Bild 1. Der MPS 803 — ein kompakter Drucker 


bild zu schreiben. Der MPS 803 hat 
aber auch seine positive Seite — er 
ist grafıkfähig. Dabei ist dieses Wort 
allerdings zu relativieren, den die 
Grafik des MPS 803 mit der eines 
Star SG 10 zu vergleichen hieße, 
Apfel mit Birnen zu messen. Auch 
die Steuerbefehle und die Druckge- 
schwindigkeit reißen niemanden 
aus dern Sessel, denn Breit- und Re- 
versschrift sind einfach zu wenig. 


Was bleibt 


Mit einem Marktpreis von etwa 
550 Mark, zuzüglich 100 Mark für eı- 
nen Traktorantrieb, ist der MPS 803 
für seine Leistungen eindeutig: zu 
teuer. Bedenkt man, daß der etwas 
bessere MPS 801 inzwischen günstı- 
ger angeboten wird (Preis etwa 300 
Mark), so dürfte sich der Preis wahr- 
scheinlich nicht mehr allzulange hal- 
ten. Insgesamt betrachtet ıst der 
MPS 803 ein Drucker, der für einen 
einfachen Drucker zu teuer ist, aber 
den Anforderungen der mittleren 
Preisklasse nicht gerecht wird. 

(E. Konther/aw) 


Info: Commodore Büromaschinen GmbH, Lyoner Str. 38, 
6000 Frankfurt/M 
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Schriftbild. 
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SP 1000 VC — Superstar mit Haken 


Die Leistungsdaten des SP 1000 VC hören sich exzellent an. 
Aber kann der Drucker im Praxistest diese Daten bestätigen? 


vielen C 64-Besitzern benutzt, 
auch wenn sie es meistens gar 
nicht merken. Das Geheimnis die- 
ser Aussage liegt darin, daß Com- 
modore einige seiner Druckermo- 
delle von Seikosha bezogen hat. Da- 
her sind die Drucker, die Seikosha 
unter seinem eigenen Namen ver- 
kauft, fastimmer auch ineiner direkt 
anden C 64 anschließbaren Version 
erhältlich. Dieser gute Brauch hat 
auch im SP 1000 VC (Bild ]) seine 
Fortführung gefunden. Ander Gerä- 
terückseite befinden sıch die glei- 
chen zweı Diodenbuchsen zum se- 
riellen Anschluß wie bei Commodo- 
re-Druckern. Daneben findet man 
erfreulicherweise auch vier gut er- 
reichbare DIL-Schalter für die Ge- 
räteadresse, Seitenlänge, Papier- 
enderkennung und die Darstel- 
lungsform der Null. 
Man muß schon eine halbe Spie- 


Sein © ser: werden von 


Er 
en . 
—\ 


en. | Funktionstasten 


Bild 1. Der Seikosha SP 1000 VC 


Seikosha SP-100®8 VC, 
Aber 
Elite spart jede Menge Flatz, 


lernatur sein, um alle Funktionen, 
die beim SP 1000 VC mit Schaltern 
und Tasten einstellbar sind, voll ge- 
nießen zu können. Trotzdem kann 
man einigen der Tastenfunktionen 
(neben den obligatorischen On- 
Line, LF- und FF-Tasten) einen gewis- 
sen Nutzen nıcht abstreiten. So istes 
beispielsweise manchmal recht 
praktisch, die NLQ-Schrift mit einem 
einzigen Tastendruck einzustellen. 
Etwas verwirrender wird die Be- 
dienung des Druckers, wenn man 
sich den Zweitfunktionen dieser 'Ta- 
sten nähert. Nach einiger Übung 
wird man aber auch die Einstellung 
der Ränder und den automatischen 
Einzelblatteinzug zu schätzen wis- 
sen. Damit ist bereits angedeutet, 
daß der SP 1000 VC Einzelblätter 
ebenso problemlos verarbeiten 
kann, wie Endlospapier. Die er- 
wähnte Einzugsautomatik macht auf 
erfreulich angenehme Weise 
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Name des Druckers 
Schriftarten 
Geschwindigkeit 
NLO-Schrift 
Unterstreichen 
Zeichenmatrix 
Papierarten 
Spaltenbreite 
Selbsttest 
Schnittstellen 
Pufferspeicher 
Rückwärtstransp. 
Grafikmodi 
Sonderfunktionen 


Ausstattung 








ein Drucker mit Near Letter Quality 
auch FICA einfach ist moeglich wie man sieht. 


Schaalschrift spart noch sehr Platz ist aber schwerer lesbar. 


Jem 
Abe 


Kursivschrift dient 
Leider chre Umlaute, 


H=zrauss 
ae 1 1 0 


und Graphik mit Doppeldruck wer rem-Hst 


stellen von Woertern. 
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Bild 2. Die hervorragende NLQ-Schrift — aber leider ohne Umlaute 
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Schluß mit dem Gefummel beim 
Einlegen von Einzelblättern. Leider 
ist der Antriebstraktor etwas ungün- 
stig oberhalb der Druckwalze ange- 
ordnet, so daß es bei jeder abzu- 
trennenden Seite zu einem Blattver- 
lust kommt. Das Wechseln des Farb- 
bandes, das keiner Norm, außer der 
eigenen Norm entspricht, läßt sich 
leicht und ohne schwarze Finger be- 
werkstelligen. 

Das gute Handbuch, das jedem 
Drucker in einer deutschen und 
englischen Version beiliegt, gibt 
Aufschluß über die weiteren Fähig- 
keiten des SP 1000 VC, Getreu dem 
VC im Namen des SP 1000 VC sind 
die Befehle mit denen des MPS 802 
weitgehend gleich. Darüber hinaus 
gibt es noch Befehle für Kursivschrift 
und das Unterstreichen. Alle Grafik- 
zeichen des.C 64 gehören ebenso 
zum Repertoire des SP 1000 VC wie 
auch ein einfacher Grafikmodus. Die 


_ Technische Daten des SP 1000 VC 


: Seiskosha SP 1000 VC 

: Pica, Elite, Schmal, Pica NLQ, Elite NLQ, Kursiv 
:angeg.: 100 Z/s: gem.: 82 Z/s: Probet.: 3: 40 

:Ja, 19x 13 
Ja Proportional.: Nein 
SOMEL 

: Einzel-/Endlos 
:O bis 137 

:Ja Hexdump: Ja 
: CBM + seriell 

: Nein 
: Nein 
: 480 Punkte pro Zeile 

: Schalter für: NLO, Randeinstellung; Anschlag- 


NLO-Geschw. : 20 Z/s 


Zeichenvorrat: 96 ASCH/CBM 
Durchschläge : 2 
Papierbreite: 101, 6 bis 254 
Autom. Einzelbl.-Einz.: Ja 


Ladbarer Zeichens.: Nein 
Hor. Tab.: Nein Ver. Tab.: Nein 


stärke einstellbar, 4 DIL-Schalter 


: On-Line, LF, FF, NLO, Rand 
: Handbuch in deutsch, Kabel, Farbband 


Grafik wird sauber und nahtlos an- 
einandergesetzt. Die Auflösung von 
480 Punkten pro Zeile kann dabei al- 
lerdings nur den wenigsten Ansprü- 
chen gerecht werden. 

Beim SP 1000 VC wechseln sich 
Vor- und Nachteile ab. Der in Jeder 
Hinsicht guten NLOQ-Schrift (Bild 2) 
steht die etwas hinter den Angaben 
herhinkende Druckgeschwindig- 
keit entgegen (angegeben 100, ge- 
messen 82). Dieser ohnehin magere 
Wert reduziert sich bei der NLQ- 
Schrift auf die Geschwindigkeit eı- 
nes guten Typenraddruckers (20 
Zeichen pro Sekunde). Äber auch 
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ım Normalmodus kann man mit dem 
schriftbild schon einiges anfangen. 
Man darf zwischen den Schriften Pi- 
ca, und Elite entscheiden, den 
Drucker initialisieren, auf Schmal- 
schrift umschalten und beispiels- 
weise Formeln mit Hilfe von Sub- 
script und Superscript richtig dar- 
stellen. Auch der Wechsel zwischen 
der Standardschrift und dem NLOQ- 
Modus, gleich in welcher Schriftart, 
ist per Software-Befehl möglich. 
Doch so gutsich diese Fähigkeiten 
auch anhören mögen, man wird vom 
SP 1000 VC rasch wieder auf den Bo- 
den der Realität zurückgeholt. Die 


vorgenannten Leistungsmerkmale 
lassen sıch allesamt nurüber Sekun- 
däradressen an- beziehungsweise 
auswählen. Von einer Textverarbei- 
tung aus Ist da so gut wie nichts ein- 
zustellen. Beinahe vergessen sind 
da die fehlenden Umlaute. 

Die Druckerentwicklung macht 
zweifelsohne enorme Fortschritte — 
doch in welche Richtung? Zwar ist 
der komplette C 64-Zeichensatz si- 
cher eine nützliche Angelegenheit 
und auch die gute NLO-Schrift deu- 
tet in Richtung sinnvoller Anwen- 
dungen wie der Textverarbeitung. 
Um so unverständlicher ist es, daß 


C 64 


wichtige Funktionen eines Druckers 
von einer Textverarbeitung aus ein- 
fach nicht angesprochen werden 
können. Der NLO-Modus verliert in 
diesem Zusammenhang sogar gänz- 
lich seinen Sinn, denn Umlaute ge- 
hören heute einfach zum Standard. 
Der SP 1000 VC ist als Listing- 
drucker zu schade (und mit 948 
Mark zu teuer) und für eine Textver- 
arbeitung nur bedingt geeignet. So 
gesehen ist der SP 1000 VC ein 
Drucker auf der Suche nach seiner 
eigenen Identität. 

(E. Konther/aw) 
Info: Microscan, Postfach 60 1705, 2000 Hamburg 60 





Enson FX-85 — 
neue Referenz 


Nachdem der FX-80 doch schon etwas 
in die Jahre gekommen ist und auch 
der FX-80-+ nur wenig verbesserte, 
stellte sich die Frage des Nachfolgerss. | 
Jetzt ist er da — der neue FX-85.» u 


ıe Geschichte der Epson-Druk- 
D ker hört sich nicht nur interes- 

santan, sieistesauch. Schon zu 
einer Zeıt, als Computer für den 
Heimbereich noch fast unvorstell- 
bar waren, setzte Epson mit seiner 
MX-Sene Standards. Die darauffol- 
gende Generation der RX/FX-Druk- 
ker war bereits für viele Commo- 
aore-Besitzer ein treuer Wegbedlei- 
ter. Der Erfolg der RX/FX-Serie ist 
hauptsächlich auf die umfassenden 
und leicht zu bedienenden Funktio- 
nen, bei einem guten Preis-/Lei- 
stungsverhältnis, zurückzuführen. 
Trotzdem läßt die rasante Entwick- 
lung auf dem Druckermarkt, na- 
mentlich einer immer höher wer- 
denden Druckgeschwindigkeit, der 
NLQ-Schrift und der tastengesteu- 
erten Schriftenwahl, keiner Firma 
die Zeit, sich auf dem Erarbeiteten 
auszuruhen. Mitden steigenden ÄAn- 
sprüchen der Heimcomputer-Besit- 
zer, die auch auf den beruflichen 
Sektor maßgeblichen Einfluß haben 
(wer arbeitet im Büro schon gerne 
mit einem schlechteren Drucker als 
zu Hause), war Epson in einen ge- 
wissen Zugzwang geraten. Der Ep- 
son FX-85 (Bild ]) soll diese Lücke 
wieder schließen. 


422 Zar 





Wie bei fast allen Entwicklungen 
gibt es immer mehrere Wege, ein 
Produkt an veränderte Marktbedin- 
gungen anzupassen. Die erste Mög- 
lichkeit besteht darın, ein völlig neu- 
es Gehäuse mit neuer Technik zu 
entwickeln, die zweite Art beläßt an 
einem Produkt die guten Teile und 
verbessert nur das nicht mehr zeit- 
gemäße. Wie man von der Modell- 
vielfalt japanischer Autos her weiß, 
bevorzugen Japanische Firmen die 
erste Strategie. Nicht so Epson, ob- 
wohl ebenfalls japanischen Ur- 
sprungs, so haben sıch die Techni- 
ker ım fernen Nagano dazu ent- 
schlossen, ein gutes System in sei- 
ner Leistungsfähigkeitzu erhöhen — 


Evolution statt Revolution 


ein weiser Entschluß, wie sich noch 
zeigen wird. Deshalb unterscheidet 
sıch der FX-85 rein äußerlich auch 
nur durch einige wenige, aber we- 
sentliche Merkmale Außer dem 
Namensschild ist das vor allem die 
neue Bezeichnung der Funktionsta- 
sten. Neben dem altbekannten On 
Line, Form Feed und Line Feed fin- 
det man zwei weitere Bezeichnun- 
gen; Draftund NLO. Und tatsächlich, 





Bild 1. Die neue Referenz — der FX-85 


auch bei Epson ist in dieser Preis- 
klasse das Zeitalter der Near-Letter- 
Quality Schrift angebrochen (Bild 2). 
Die Buchstaben Draft stehen ledig- 
lıch dafür, daß man die mit NLQ ein- 
stellbare, besonders schöne Schrift 
auch durch Tastendruck wieder ab- 
schalten kann. Unser Probedruck 
(Bild 3) zeigt, wie gut und harmo- 
nisch die Buchstaben geformt sind. 
Allerdings kann es vorkommen, daß 
die erste Zeile in NLO-Schrift etwas 
weniger scharf als die restlichen 
Zeilen gedruckt wird. 

Die Mehrzahl der Veränderungen 
hat intern im Drucker stattgefunden. 
Mit einer Zusatzplatine und neuen 


Steuer-ROMs sind einige Funktio- 


nen dazugekommen, die das Arbei- 
ten mit dem FX-85 sowohl für den 
Basic-Programmierer, als auch für 
denjenigen, der mit verschiedenen 
Text- und Datenverarbeitungspro- 
grammen arbeıten möchte, ange- 
nehm und effektiv gestaltet. Da ist 
zunächst die sogenannte Master-Be- 
trıebsart. Sie erlaubt es, mit einem 
einzigen Befehl, jede nur erdenkli- 
che Schriftenkombination, sowohl 
im Normalschrift-, als auch im Schön- 
schriftmodus zu erreichen. Man 
sucht sich nur noch aus einer Tabel- 
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Der Epson FX-85 
Mit der schönen NLQ-Schrift und einigen praktischen 


Druckbefehlen wurde der FX-80 sinnvoll erweitert 
Alle anderen Druckbefehle des Fx-SÜ bleiben ganz 


wie gewohnt erhalten ?7ze Arstzzerunrg 
kann entweder durch Befehle oder über die Funktionstasten erfolgen. 


Bild 1. Der FX-85 — schön und funktionell 





Bild 2. Der fünffach vergrößerte 
Buchstabe »A« der NLQ-Schrift 





le indem exzellenten Handbuch die 
gewünschte Schrift heraus und gibt 
die Nummer der Schrift in Form eı- 
nes Parameters an. Auch für die von 
vielen Textverarbeitungen her be- 
kannte Funktion des Randaus- 
gleıchs (rechts, Mitte links) wird vom 
FX-85 unterstützt. Neu sind auch die 
Befehle zur Beeinflussung des ach- 
ten Bits der ankommenden Daten. 
Obwohl für den C 64-Besitzer nicht 
maßgeblich, so besteht immerhin 
die Möglichkeit, die Drucker auch 
an einem zweıten Computer, der 
das achte Bit nıcht wie erwartet sen- 
det, zu betreiben. 

Der FX-85 unterscheidet sich me- 
chanisch nur unwesentlich vom FX- 
80. Er besitzt ebenso neun Nadeln 
und druckt.die Zeichen der Normal- 
schrift in der bekannten 9x11-Matrix. 
schaltet man jedoch in die Schön- 
schrift, so wird die Matrix, wenig- 
stens rechnerisch, zu einer 18x18- 


Matrix. Dieser Punktevorteil wird 
durch einen nicht unerheblichen 
Geschwindigkeitsnachteil (37 ge- 
genüber 160 Zeichen pro Sekunde, 
Probetext ın 1:43) erkauft. Im Gegen- 
satz zu seinem Vorfahren besitzt der 
FX-85 einen Pufferspeicher von acht 
KByte. Damit erreicht er bereits Di- 
mensionen, ab denen sich ein Puf- 
ferspeicher bezahlt macht. Beim Ar- 
beiten, beispielsweise mit einer 
Textverarbeitung, kann man mit der 
Texteingabe weitermachen, obwohl 
der Drucker noch den letzten Aus- 
druck beendet. 


Allerlei Tasten 


Drucker kann man auf die ver- 
schiedensten Arten steuern; durch 
Schalter, DIL-Schalterreihen, Se- 
kundäradressen und natürlich mit 
den ESC-Befehlen. Die Drucker mit 
dem a ıchneten sich 
immer schon ER flexiblen 
Befehle, die. das gesamte Leistungs- 
spektrum des Druckers auch wirk- 
lich verfügbar machen, aus. Beim 
FX-85 wurde von diesem Konzept 
glücklicherweise nicht abgewı- 
chen. Die Kontrolle über den 
Drucker ist mit einer enormen Viel- 
zahl an Befehlen möglich. Beim 


Technische Daten 


Name des Druckers: Epson FX-85 
Schriftarten: 


Elite, Fett, Breit, Schmal, Doppeldruck, Hoch-/Tieigestellt, 


angeben: 160 Zeichen/s, gemessen: 158 Z/s, Probetext: 1:43 


NLQ-Geschw.: 37 Z/s 

Proportional: Ja 

Zeichenvorrat: ASCIL, International 
Durchschläge: 2 

Papierbreite: 185 bis 254 mm 
Automatischer Einzelbl.-Einz.: Nein 


Ladbarer Zeichens:.: Ja 


Hor.Tab.: Ja Ver.Tab.: Ja 


Master Betriebsart, Einstellung der relativen Punktposition, 


9-Punkt Grafikmodus, Schriftenwahl durch Tasten, Randaus- 


Unidirektional 
Geschwindigkeit: 
NLO-Schrift: Ja, 18 x 18 
Unterstreichen: Ja 
Zeichenmatrix: 9x1 
Papierarten: Einzel-/Endlos 
'Spaltenbreite v-b: 0 bis 160 
Selbsttest: Ja, Hexdump: Ja 
Schnittstellen: Centronics; wahlweise RS232, IEEE 488 
Pufferspeicher: 8200 Zeichen 
Rückwärtstransp. Ja, 
Grafikmodi: 480 bis 1920 Punkte pro Zeile 
Sonderfunktionen: 
gleich 
Funktionstasten: On Line, LF, FF, NLOQ, Draft 
Ausstattung: 


Handbuch deutsch, Farbband, Papierseparator | 


Tabelle. Die Leistungen des FX-85 auf einen Blick 
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FX-85 ist aber noch eine weitere 
Steuerungsmethode hinzugekom- 
men. Neben der bereits erwähnten 
Schönschrift lassen sich mit den 
Funktionstasten des Druckers neun 
verschiedene Schriften (siehe Ta- 
belle) und ein Steuerbefehl zum 
Uberspringen der Perforation ein- 
stellen. Die Bedienung ist einfacher 
als man denkt. Man drückt einfach 
die On-Line- und Form-Feed-Taste 
gleichzeitig und befindet sich im 
Programmiermodus. Nun kann man 
durch mehrmaliges Drücken auf die 
On-Line-Iaste die gewünschte 
Schrift einstellen. Nach der Bestäti- 
gung mit der Form-Feed-Taste und 
der Rückstellung des Programmıer- 
modus mit der Line-Feed-Taste ist 
der Drucker in der gewünschten 
Schrift fixiert. Diese Funktion Ist 
wohlgemerkt nur so lange (nicht wie 
beim GX-80) sinnvoll, wie man alter- 
nativ auf die Programmierung der 
ESC-Befehle zurückgreifen kann. 


Spitzenklasse 


Mit dem FX-85 ist es Epson gelun- 
gen, der Konkurrenz ein Schnipp- 
chen zu schlagen. Zwar gibt es 
schnellere Drucker und auch sol- 
che, die ein wenig schöner schrei- 
ben. Die gleiche Kombination aus 
Leistung und Bedienungskomfort 
kann aber kein anderer Drucker 
dieser Preisklasse anbieten. Dabei 
ist es erfreulich, daß der FX-85 kei- 
nen Pfennig mehr als der alte 
FX-80 + kostet — erhatden gleichen 
Listenpreis von 1848 Mark. Nun wer- 
den sich manche Besitzer des FX- 
80/FX-80+ überlegen, daß man Ih- 
ren Drucker vielleicht aufrüsten 
könnte. Kurz gesagt — man kann! Für 
beide Drucker gibt es von Epson 
Umbausätze für 350 Mark (FX-80) 
beziehungsweise 300 Mark (FX- 
80 +). Der Einbau sollnach Aussage 
der Firma Epson von jedem autor!- 
sierten Fachhändler vorgenommen 
werden können. 

Mit seinen Leistungen wird der 
FX-85 auch weit über das Jahr 1985 
noch tonangebend ın der Drucker- 
weltsein. Und selbst wenn es einmal 
eine weitere Verbesserung geben 
sollte, bei der derzeitig von Epson 
verfolgten kundenfreundlichen 
Strategie, wird man wahrscheinlich 
wieder einen Umbausatz erhalten 
können. Dieses zukunfitssichere, leı- 
stungsstarke Konzept war für uns 
Anlaß, den FX-85 zu unserem neuen 
Referenzdrucker in der Preisklasse 
über 1400 Mark zu küren. (aw) 


Info: Epson Deutschland GmbH, Zülpicher Straße 6, 4000 
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ı 3 document 


nged quickly. 
id neverBibe easier. 


into position and a. ct} 


as Textverarbeitungspro- 
De »Paperclip« gibt es 
schon seit einiger Zeit für die 
CBM-Serie von Commodore, also 
für die Computer der Reihen 3000, 
4000 und 8000. Die hier getestete 
neue Version von Paperclip für den 
C 64 wurde aber überarbeitet und 
in einigen Punkten erweitert. 
Paperclip gehört, wie Wordpro 
3+, nicht zu den sogenannten bild- 
schirmorientierten Textprogram- 
men. Damit ıst angedeutet, daß der 
Text im Speicher unformatiert ist 
und erst beim Ausdruck auf dem 
Drucker seine endgültige Form be- 
kommt (Bild 1). Das hat den Vorteil, 
daß die Grundeigenschaften des 
Editors relativ einfach sein können. 


Erst schreiben, dann 


formatieren 


Der Nachteil dieser Methode ist 
aber ein relativ unübersichtlicher 
Text auf dem Bildschirm, da die For- 
matbefehle für den Drucker im Text 
enthalten sind und ihn damit unter- 
brechen. Wenn man sich allerdings 
an diese Art der Textverarbeitung 
gewöhnt hat, kann man durchaus da- 
mit zurechtkommen, vor allem bei 
einem Programm wie Paperclip, das 
dıe oben genannten Nachteile 
durch viele Hilfsmittel relativiert. So 
kann man sich beispielsweise jeder- 
zeit ein exaktes Abbild des späteren 
Ausdruckes auf den Bildschirm ge- 
ben lassen, praktischerweise sogar 
in 80-Zeichen-Darstellung (Bild 2), in 
der man die spätere Formatierung 


.iNg cc 


— ausdrücklich qui 


ist ein relativ unbekanntes Iociverorbeitungsprogramm, trotzdem 
i ört es zu den leistungsfähigsten 


des Textes besonders gut erkennen 
kann. 

Das Programm kommt ausKanada 
und ist deshalb nicht von Haus aus 
mit den deutschen Umlauten ausge- 
stattet. RN Buch- 
staben, 
qgual Keys«, frei besetzen und damit 
dieses Manko ausgleichen. Ferner 
ist es möglich komplette Zeichensät- 
ze nachzuladen und somit auch eine 
komplette deutsche Schreibmaschıi- 
nentastatur zu realisieren. Um die- 
sen geänderten Zeichensatz auch 
voll auf dem Drucker ausgedruckt 
zu bekommen, kann man sich seine 
eigene Druckerdatei, mit allen spe- 
zifischen Druckercodes, selbst er- 
stellen. Es werden dabei aber nur 
die vorhandenen Möglichkeiten des 
Druckers genutzt. Umlaute auf 
Commodore-Druckern sind des- 
halb mit Paperclip nicht möglich. 


Gut in Form 


Doch nun zu den Möglichkeiten 
der Textbearbeitung (Tabelle). 
Selbstverständlich sind umfangrei- 
che Standard-Operationen wie Ver- 
schieben, Kopieren, Einsetzen und 
Löschen von Textteilen möglich. 
sehr einfach und elegant gelöst ist 
hierbei das Einschreiben von Text- 
teilen, das über die Commodore- 
Taste eingeleitet und wieder been- 
det wird. Die übrigen Manipulatio- 
nen sind in größerem Rahmen lei- 
der nur zeilenweise durchzuführen. 
Innerhalb einzelner Absätze kann 
man diese Operationen aber auch 
zeichenweise definieren. Das be- 


lie sogenannten »Multılin- 








ABild 2. Die 80-Zeichen-Darstellung vermittelt zumindest einen Ein- 
druck des späteren Textbildes 


Be Bild 1. Paperclip formatiert den Text erst nach der Eingabe 


ginnt zunächst immer mit der Kenn- 
zeichnung des zu verändernden 
Textteiles, gefolgt von der eigentli- 
chen Operation. Sehr umfangreich 
und mächtig ist dabei die Replace- 
Funktion ausgefallen. Man kann da- 
mit einzelne Textstellen, die immer 
wieder ım Text vorkommen, aus- 
tauschen. Diese Funktion funktio- 
niert auch »global«, das heißt über 
mehrere aneinandergekettete Text- 
dateien hinweg. Außerdem kann 
man auch sogenannte Jokerzeichen, 
wie sie auch beim Arbeiten mit der 
Floppy vorkommen, einsetzen und 
diese Funktion damit noch effekti- 
ver nutzen. Völlig aus dem Rahmen 
üblicher Textprogramme fällt die 
Möglichkeit auch einzelne Spalten 
und ganze 'Textblöcke zu manipulie- 
ren. Dabei sind nıcht nur die schon 
erwähnten Funktionen wie Erset- 
zen, Löschen und Kopieren möglich, 
sondern auch Rechenfunktionen. 
Geradezu sensationell ist in diesem 
Zusammenhang die Möglichkeit in 
Spalten angeordnete Tabellen nach 
mehreren, selbstgewählten Schlüs- 
seln sortieren zu können. Diese 
Funktionen sind besonders bei Ta- 
bellenkalkulationen (wohlgemerkt 
innerhalb der Textverarbeitung) 
oder Abrechnungsformularen wich- 
tig. Um einer solchen Tabelle bei 
der Bearbeitung mehr Raum geben 
zu können, kann man die 40-Zei- 
chen-Darstellung aufgeben und sie 
bis auf 250 Zeichen pro Zeile aus- 
dehnen. Dabei wird horizontales 
Scrolling verwendet, um alle Berei- 
che des Textes erreichen zu können. 
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Die Formatierungsmöglichkeiten 
für den Ausdruck sind ebenfalls 
vielfältig und sehr umfangreich. Das 
beginnt schon beim Setzen des 
rechten und linken Randes. Man 
kann hier zunächst einmal eınen fe- 
sten Rahmen stecken, der aber je- 
derzeit wieder durch relative Ande- 
rungen manipulierbar ist. Soll bei- 
spielsweise weiter hinten im Text um 
fünf Zeichen weiter eingerückt wer- 
den, so kann man diese Änderung 
auch relativ angeben. Wird nun die 
Grundformatierung am Änfang ge- 
wechselt, so ändert sich der Druck- 
beginn des Textes ab der bewußten 
Stelle weiterhin um fünf Zeichen re- 
lativ zur neuen Formatierung. Man 
kann an Jeder Stelle des Textes ei- 
nen Seitenumbruch beim Ausdruck 
erzwingen. Sehr einfach ist auch die 
jederzeit mögliche Anderung der 
Schreibdichte von Pica über Elite 
bis hin zur Schmalschrift. Unterstrei- 
chen, Fettdruck und Schrägschrift 
werden durch spezielle Zeichen gut 
unterstützt. Diese Druckänderun- 
gen werden übrigens bei der forma- 
tierten Ausgabe auf dem Bildschirm 
berücksichtigt und dargestellt. So ist 
jede unterstrichene Stelle bei der 
formatierten Ausgabe wirklich un- 


terstrichen. Fettdruck und Schräg- 
schrift werden invers dargestellt. 
Natürlich kann man auch Subscript 
und Superscript einsetzen. Beson- 
ders interessant ist hierbei die Tat- 
sache, daß bei Druckern, die über 
dıese Druckfunktionen gar nicht 
verfügen, durch mehrfaches Ausge- 
ben einer Zelle Super- und Sub- 
script doch realisiert werden. Die 
Schrift wird eben bei Superscript 
über dem eigentlichen Haupttext 
und bei Subscript darunter ge- 
druckt. Ferner kann man jederzeit 
zwischen linksbündiger, zentrierter 
und rechtsbündiger Ausgabe des 
Textes auf dem Drucker hin- und 
herschalten. Auch der Spalten- 
druck, bei dem die Druckzeilen 
Aurch Einfügen zusätzlicher Leerzei- 
chen auf eine konstante Länge ge- 
bracht werden, wird unterstützt. 
Kopf- und Fußzeilen können jeder- 
zeit im Text plaziert werden und wer- 
den dann bei jeder nachfolgenden 
Druckseite oben und unten ange- 
fügt. Leider können diese beiden 
Texte nur eine Zeile umfassen, was 
sich ın der Praxis störend auswirken 
kann. Abgerundet werden die For- 
matierungsmöglichkeiten durch Be- 
fehle, die an bestimmter Stelle den 


Druck anhalten, um zum Beispiel 
das Typenrad zu wechseln, oder die 
das Senden spezifischer Drucksteu- 
erzeichen erlauben. 

Ein Problem, das beim Schreiben 
von Texten auf dieser Art von Text- 
programmen entsteht, ist, daß man 
vorher nie genau weiß, wie später 
der fertige Text beim Ausdruck aus- 
sehen wird. Besonders deutlich 
wird dieses Manko, wenn man an 
lange Wörter denkt, die eine Zeile 
ganz schön »zerrupfen« können. Um 
dies abzumildern, kann man einen 
sogenannten bedingten Trennungs- 
strich in ein solches Wort einsetzen. 
Steht das Wort später beim Aus- 
druck mitten in der Zeile, wird es 
normal zusammengeschrieben. 
Steht es aber am Ende einer Zelle, 
wird es an der vorher festgelegten 
Stelle getrennt und ein Trennungs- 
strich eingefügt. Wichtig ist ferner 
die Möglichkeit ein festes Leerzei- 
chen (mit Shift Space) zwischen zwei 
Wörter zu setzen, die nıcht vonein- 
ander getrennt werden sollen. Dies 
ist besonders beim oben erwähnten 
Spaltendruck von Vorteil, dahıier an 
dieser Stelle keine zusätzlichen 
Leerzeichen eingefügt werden. Eı- 
ne sehr nützliche Einrichtung ist die 





Hypra-Copy, Sonderheft 5, Seit®70 ONI.SEA ine, Ausgabe 6, Seite 60 


Hardcopy CP-80x, Sonderheft 4, 


Föhlerieifaklien roBR 


ProDat, Sonderheft 5, Seite 68 

In der Zeile 2980 muß der letz- 
te Befehl »GO S« ersetzt werden 
durch »GOSUB 2970«. Außer- 
dem sind alle Leerzeichen vor 
beziehungsweise nach Basic- 
Befehlen zu löschen, da das Pro- 
gramm sonst nicht lauffähig ist. 
Soft Scrolling auf dem C 64, Sonderheft 
4, Seite I11 

Das Programm »Beispiel Nr. % 
ist so, wie es veröffentlicht wur- 
de, nıchtlauffähig. Folgende Zei- 
len sind zu ändern: 
20 PRINT CHR$(147);:GOSUB 

140 

160 IF S=6149 THEN 180 
200 DATA 190, 16, 245, 173, 39, 4, 
133, 251 
220 DATA 202, 224, 255, 208, 243, 
165, 251 
230 DATA 141, 0, 4, 173, 22, 208, 41, 
248 
240 DATA 141, 22, 208, 96 
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Im MSE-Listing wurden zwei 
Zahlen unleserlich gedruckt. 
Die dritte Zahl in Zeile »09El« ent- 
spricht »85« und vierte Zahl in 
Zeile »09E% »£O«. - 
Programm Service, Ausgabe 10, Seite 
161 

Die Bestellnummer der Leser- 
Service-Diskette für die Ausga- 
be 10/85 ist falsch. Sie muß lau- 
ten »L6 8510A«. . 
Ausgabe 10, Seite 155 

Die 64’er Ausgaben |, 2, 3/84, 
können Sie natürlich nicht nach- 
bestellen. Die erste Ausgabe 
der 64’er erschien 4/84. 
Hardcopy ITOH 8510 mit HI-EDDI, Son- 
derheft 4, Seite 59 

Dort muß stehen: 

Bild-Nr. O0=0 => kein Bild, 
Startspalte = 40 

Bild.Nr.0=0 => kein Bild, 
Endspalte = 0 

SPC + (40 — Startspalte)*8+ 
Endspalte*8< =640 

Hypra-Text, Ausgabe 10, Seite 67 ff 

In Zeile 8015 ist der Befehl 
»GOTOl« zu ersetzen durch 
»GOTO26«. In Zeile 10040 muß 
statt »GOTO 8012« »GOTO 8013 
stehen. In der Zeile 30330 ist 
»”00” +« ersatzlos zu streichen. 
In der Zeile 150 ist der Befehl 
THEN 105 zu ersetzen durch 
THEN 150. 

Neues vom SMON, Ausgabe 10, Seite 87 

Damit auch der Befehl »z« funk- 
tıoniert, ist in die Adresse Start- 
adresse SMON + 38.p eine 0 zu 
POKEn. 


Um Pseudoschirme auf Kas- 
sette zu speichern beziehungs- 
weise von der Kassette zu laden 
ist nicht die Zeile 17500 sondern 
die Zeile 3940 beziehungsweise 
4170 anzuspringen. 


Seite 55 

Die Hardcopy wird kompri- 
miert ausgedruckt. Um dies zu 
verhindern, muß Zeile 470 geän- 
dert werden. 470 DATA 27, 32, 
210, 255, 169, 75, 32, 210, 1010. 


Wir suchen die ersten 128er Profis 


Der neue C 128 Ist seit eini- 
gen Wochen im Handel. 
Vielleicht gehören Sie ja zu 
den ersten Besitzern dieses 
vielseitigen und leistungsfä- 
higen neuen Computers und 
haben schon erste, tieferge- 
hende Erfahrungen damit 
gesammelt oder interessan- 
te Programme dafür ge- 
schrieben? 

In diesem Fall sollten Sie 
Ihre Erfahrungen nicht für 
sıch behalten. Tragen Sie 
doch einfach mal zusammen, 
was Sie über den C 128 her- 
ausgefunden haben, das 
nichtim Handbuch steht. Wir 
werden alle guten Tips und 
Tricks zu diesem Computer 
sowie die besten Program- 
me dafür im 64’er-Magazin 
veröffentlichen. 

Bitte vermerken Sie bei al- 
len Zusendungen, mit wel- 
cher Gerätekonfiguration 
Sie arbeiten und ob sich Ihr 


Beitrag auf den 128-Modus 
oder auf den CP/M-Modus 
bezieht. Beiträge für den C 
64-Modus schicken Sıe bitte 
nicht unter dem Stichwort C 
128, sondern als normale C 
64-Programme oder Tips 
ein. Bei Programmeinsen- 
dungen legen Sie bitte unbe- 
dingt eine Diskette/Kassette 
mit Ihrem Programm sowie 
eine möglichst ausführliche 
Beschreibung bei. Selbst- 
verständlich werden alle ab- 
gedruckten Beiträge ange- 
messen honoriert — es win- 
ken bis zu 2000 Mark, wenn 
Ihr Programm Listing des 
Monats wird. 

Schicken Sie Ihre Tips und 
Programme an 
Markt & Technik 
Verlag Aktiengesellschaft 
Redaktion 64’er 
Kennwort: C 128 
Hans-Pinsel-Str. 2 
8013 Haar bei München 
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Definition von Redewendungen. 
Einmal am Anfang definiert sind sie 
schnell per Tastendruck abrufbar 
und eine echte Hilfe beim Schrei- 
ben, da man im allgemeinen immer 
wieder einmal solche festen Rede- 
wendungen im Text benutzt. Leider 
ıst der vorhandene Textspeicher 
ziemlich begrenzt. Er beträgt bei 40 
Zeichen pro Zeile 424 Zeilen insge- 
samt. Das sind etwa 17 KByte oder 68 
Blocks auf der Diskette. Dafür ist 
aber das gesamte Programm kom- 
plett im Speicher, so daß nichts 
mehr nachgeladen werden muß. 


Komfortable 
Diskettenbefehle 


Die Diskettenfunktionen sind sehr 
umfangreich und gut gelungen. Be- 
sonders das Laden von Texten ist 
sehr einfach. Dazu ruft man einfach 
das Inhaltsverzeichnis der Diskette 
auf und kann sofort aus der Bild- 
schirmauflistung den Namen des zu 
ladenden Textes entnehmen. Natür- 
lıch ist auch das Einfügen von der 
Diskette in den im Hauptspeicher 
vorhandenen Text möglich. Selten 
anzutreffen ist dagegen das Abspei- 
chern einzelner Textteile was be- 
sonders beim Zerschneiden länge- 
rer Texte sehr sinnvoll ist. Bemer- 
kenswert ıst außerdem die Möglich- 
keit die Texte nıcht nur im speziellen 
Paperclipformat abzuspeichern, 
sondern auch ganz normale sequen- 
tielle Files zu erzeugen. Man kann 
also ungehindert Daten von ver- 
schiedenen Datenverarbeitungs- 
programmen empfangen und verar- 
beiten sowie Daten an sie zurückge- 
ben. Sogar die formatierte Ausgabe, 
so wie sie zum Drucker geht, kann 
auf die Diskette umgelenkt werden. 
Auch die Kassette wird mit den ent- 
sprechenden Lade- und Speicher- 
befehlen unterstützt. 

Paperclip unterstützt nahezu alle 
Drucker, die an den C 64 anschließ- 
bar sind. Auf der Diskette sind spe- 
zıelle Druckeranpassungen für 
über 30 Drucker vorhanden. Wer 
damit immer noch nicht zurecht- 
kommt, kann sich auch seine eigene 
Druckerdatei zusammenstellen. Be- 
sonders gelungen ist dabei die 
Möglichkeit eine passende Druk- 
kerdatei über ein Dienstprogramm 
mit dem Hauptprogramm zu ver- 
schmelzen, so daß automatisch mit 
dem Laden dieser speziellen Va- 
riante des Programmes die richtige 
Druckereinstellung vorhanden ist. 
Außerdem kann man so auch ande- 
re Daten wie 'Textfarben fest auf in- 
dividuelle Werte einstellen. Doch 
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zurück zur Druckeranpassung. Man 
kann nicht nur über den seriellen 
Bus arbeiten, sondern auch über die 
am User-Port vorhandene RS232- 
Schnittstelle Auch Centronics- 
Drucker sind am User-Port direkt 
anschließbar, die Ansteuersoftware 
ıst in Paperclip enthalten. So dürfte 
es mit dem Anschluß auch der exo- 
tiıschsten Drucker und Schreibma- 
schinen keine Probleme geben. 
Formbriefe wie Rundschreiben, 
Abrechnungen und ähnliches sind 
auch kein Problem mit dieser Text- 
verarbeitung. Die jeweils in den 
Formbrief einzusetzenden Informa- 
tionen werden einem zusätzlichen 
Datensatz entnommen, der auch 


Leistungsübersicht 


— Editieren (zeilen- und zeichen- 
weise) 

— Kopieren, Verschieben von 
lextteilen 

— Tabulatoren 

— Blockverschiebebefehle 

— Tabellensortierung nach meh- 
reren Schlüsseln 

— Rechenfunktion 

— 80-Zeichen-Darstellung 

— Speichern einzelner Textteile 

— unkompliziertes Laden aus 


dem Dı BR 
_ She a eichern 


und laden 

— Kassettenbedienung mit Verify 

— Redewendungen 

— umfangreicher Replace-Befehl 
mit Jokerzeichen 

— beliebiger Zeichensatz ladbar 

— Sonderzeichen definierbar 

— relatives Setzen der Texträn- 
der 

— linksbündig, Zentrierung, 
rechtsbündig 

— Blocksatz 

— Kopf- und Fußzeile 

— Programmierte Pause beim 
Ausdruck 

— Druckersteuerzeichen 

— Unterstreichen 

— Fettschrift 

— Schrägschrift 

— Buper- und Subscript 

— Formbriefausdruck 

— Zellenbreite beliebig einstell- 
bar 

— viele Druckeranpassungen 

— eigene Druckerdatei definier- 
bar 

— Druckerfile ins Hauptpro- 
gramm Test ınstallierbar 

— RS232-Interface-Unterstützung 

— Gentronics-Schnittstelle 

— Rechtschreibüberprüfung 


Tabelle. Alles auf einen Blick — 
die Funktionen von Paperclip 


von entsprechenden Datenverar- 
beitungsprogrammen kommen 
kann. Damit kann man eine Verbin- 
dung zwischen Textverarbeitung 
und AÄdressenverwaltung herstel- 


len. 
Rechtschreibung 


Ein ganz besonderes Schmankerl 
ist die eingebaute Überprüfung des 
Textes auf Rechtschreibfehler. Lei- 
der ist zwar der Grundwortschatz 
von 20000 Wörtern in englisch, aber 
man kann diesen Grundwortschatz 
um mehr als 5000 Begriffe erweitern 
und damit durchaus effektiv arbeı- 
ten. Unterstützt wird man dabei 
durch die kurze Überprüfungszeit, 
die, egal wıe lang der Text ist, etwa 
3 Minuten dauert, und die Entschei- 
dungshilfe bei unbekannten Wör- 
tern. Man wählt hier einfach über 
die Funktionstasten was man haben 
will: UÜberspringen, Verbessern 
oder Einspeichern in den Wort- 
schatz. 

Die beiliegende Anleitung istsehr 
übersichtlich und von einem Punkt 
zum nächsten aufbauend geschrie- 
ben, aberbisjetztleider nur in engli- 
scher Sprache erhältlich. 


Vielseitigkeit ist Trumpf 

Das Programm besticht durch 
den Reichtum seiner Möglichkeiten 
wie sequentielle Datenspeicherung 
auf Wunsch, umfangreiche Textma- 
nipulationen, interessante Extra- 
funktionen und die eingebaute 
Rechtschreibüberprüfung. Die we- 
nıgen Schwachpunkte, die das Pro- 
gramm besitzt, verblassen ange- 
sichts der vielen und gut gelösten 
Details. Leider wird dieses Pro- 
gramm noch nicht in einer deut- 
schen Fassung mit Umlauten, deut- 
schem Handbuch und entsprechen- 
dem Wortschatz bei der Recht- 
schreibüberprüfung vertrieben. So 
muß man sich auf die immerhin um- 
fangreichen Möglichkeiten zur Zei- 
chensatzänderung und ähnliches 
verlassen. Trotzdem ist das Pro- 
gramm seinen Preis, der bei zırka 
200 Mark liegt, in vollem Umfange 
wert. Warum es ın Deutschland so 
unbekannt ist, ist angesichts der Lei- 
stungen, die es bietet, nıcht ganzein- 
zusehen. Eine Mitschuld mffit da 
ganz bestimmt den Hersteller, der 
sich nıcht intensiv genug um den 
deutschen Markt bemüht und keine 
deutschsprachige Version dieses 
Programms vertreibt. Aber was 
nicht ist, Kann Ja noch werden. Ver- 
dient hätte es das Programm jeden- 


falls. (Karl Hinsch/aw) 


Info: Rushware, An der Gümpgesbrücke 24, 4044 Kaarst 2 
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Listing des Monats 
Hypra-PLATOS 


Dieses Platinen-Layout- 
Operation-System für den 
C 64 ist ein Leckerbissen 
und ein Muß für jeden 
Elektronikbastler. 

Endlich ist Schluß mit der 
mühseligen Kleberei von 
Platinen-Layouts. 

Das spart neben Geld, 
auch Zeit und Nerven. 


ancher Hobbyelektroniker 
A wird mit Grausen an die müh- 

selige Layout-Arbeit seiner 
selbstentworfenen Schaltungen 
denken. Layout-Bearbeitung mit 
dem Computer wäre das Stichwort. 
Aber bloß der Gedanke an die 
sündhaft teuren Platinen-Layout- 
Systeme, sogenannte CAL-Anlagen, 
beidenenessich um extrem schnel- 
le Computer mit sehr hoher Grafi- 
kauflösung (2048*2048 Punkte) han- 
delt, läßt alle Hoffnungen schwin- 
den. Für die billigsten Systeme die- 
ser Art ıst immerhin die stolze Sum- 
me von etwa 20000 Mark zu zahlen; 
und welcher Hobbyelektroniker ist 
willens in seine selbstentworfenen 
Schaltungen eine derartige Summe 
zu investieren? Wohl keiner. Es muß- 
te ein Platinen-Layout-System für 
den C 64 her, dassich der engagier- 
te Hobbyelektroniker finanziell lei- 
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Layout erstellt mit dem FX-80 (1:1) 








sten kann. Damit auch die weniger 
Bemittelten in den Genuß kommen, 
ihre Layout-Bearbeitung vom Com- 
puter, sprich © 64, erledigen zu las- 
sen, Ist das hier vorgestellte Pro- 
gramm entwickelt worden. Keine 
Frage, der C 64 ıst nur bedingt zur 
Entwicklung von Layouts zu verwen- 
den, und entsprechend sind die 
Möglichkeiten der Auflösung und 
der Rechengeschwindidckeit. Durch 
horizontales und vertikales Scrollen 


kann ab In ıchend großes 
Feld Ve Punkten 
(etwas größer als eine Europakarte) 
mit einer Auflösung von '% Zoll (etwa 
1,27 mm) bearbeitet werden. 

Die überragenden Leistungs- 
merkmale von Hypra-Platos: 

l. Das Programm ist voll menüge- 
steuert. 

2. Automatisches Verlegen von 
Leiterbahnen (Auto-Router). 















Layout erstellt mit dem VC 1526 (1:1) 





3. Manueller Router. Dadurch 
kann eine Platine, die mit dem Auto- 
Router bearbeitet wurde, nachträg- 
lich geändert werden. Der Manuell- 
Router ist voll bildschirmorientiert, 
dabei kann der Bildschirm vertikal 
und horizontal gescrollt werden. 
Bauteile oder auch einzelne Punkte 
können gedreht, verschoben, ge- 
löscht und gesetzt werden. Natür- 
lich lassen sıch in dieser Routine Lei- 
terbahnen löschen und verlegen. 
Auch kann von hier die jeweils ak- 
tuelle Platinenseite aufgerufen wer- 
den, die sich durch die Gehäusefar- 
ben der Bauteile unterscheiden. 

4, Bearbeitung von doppelseiti- 
gen Platinen sowohl mit dem Auto- 
Router, wie aber auch mit dem 
Manuell-Router. 

5. Integrierte Bauteil-Bibliothek 

6. In die Bauteil-Bibliothek lassen 
sıch beliebig viele Bauteile eintra- 
gen. Diese einmal definierten Bau- 
teile können nach Bedarf im Haupt- 
programm beliebig oft abgerufen 
werden. 

{. Auffolgenden Geräten läßt sich 
dasfertige Layout drucken und zwar 
normal und spiegelverkehtrt: 

MPS 802 (1:1 und 2:]) 

Commodore 1526 (1:1 und 2:]) 

FX-80 und Kompatible (2:]) 

Überzeugen Sie sıch selbst von 
der Leistungsfähigkeit dieses 
Platinen-Layout-Systems. Bild 1 wur- 
de mıteinem FX-80 und Bild 2 von ei- 
nem MPS 802 erstellt. Beide Bilder 
wurden im Verhältnis 2:1 ausge- 
druckt und anschließend auf 50 Pro- 
zent verkleinert. Eine Verkleine- 
rung auf 50 Prozent erreichen Sie 
beim FX-80 durch zweimaliges Ver- 
kleinern auf DIN A5. 

Beim MPS 802 istzuerstaufDIN A5 
und anschließend noch einmal um 
den Faktor 0.8 zu verkleinern. 

(Eckhard Krabel/ah) 
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it Lyrik 3.0 haben Sie schnell 
einen Lyrikband zusammen. 
Was dıe Welt allerdings von 
Computer-Dichtunghält, ist fraglich. 
Wir in der Redaktion waren jJeden- 
falls über die Ergebnisse erstaunt, 
denn Lyrik 3.0 reiht nicht nur sinnlos 
Wörter aneinander. Vielmehr wer- 
den semantısch und syntaktisch kor- 
rekte — Schreibfehler innerhalb 
des Programms ausgenommen — 
Sätze gebildet. 
Allen Anthropozentrikern sei ge- 
sagt, daß die Gedichte, die von Lyrik 
3.0 produziert werden, per definitio- 
nem keinen »Sinn« haben, was auch 
immer mit diesem Wort gemeint ist. 
Aber vielleicht besteht der Reiz 
dieser Gedichte gerade darin, daß 
durch die oftmals absurden Kombı- 
nationen von Wörtern neue unge- 
wöhnliche Metaphern gebildet wer- 
den: 
Lassen Sıe sich doch einfach mal 
ein Gedicht von Lyrik 3.0 aus- 
drucken, und lesen Sie es sich bei 
Kerzenschein oder flackernden Ka- 
minfeuer in aller Ruhe durch: 
»Goldene Ränke zerschmettern eine 
Hoffnung. 

Das Auge schreit, 

Da immer wiıeder pulsierende 
Welten verwehen, stirbt das 
Universum.« 





(Dirk Meier/hm) 





Kein »erdichteter« Lebenslauf 


Ich bin am 5.8.1967 geboren 
und gehe aufs Freiherr-von- 
Stein-Gymnasium in Bünde. 

Meinen C 64 erwarb ich vor et- 
wa zwei Jahren. Einer Laufbahn 
als Starprogrammierer stand nur 
noch mein Unwissen im Wege, 
welches ıch durch exzessives Be- 
nutzen eben jenes erwähnten 
Computers abzubauen suchte. 

Nach einigen Vorgeplänkeln 
im  Beginners-all-purpose-sym- 
bolic-ınstruction-code wurde es 
plötzlich ernst: ich erlernte 6510- 
Assembler. 








Ein Gedicht-Synthese Programm. 


nach naechtelange 


En 
Sch Ya orten »"it der deutschen "6rannati k 


Gr« nos to SaocE Borchert, Fried,fiste 
un Enz ensberger 


But 1ever for 


get: 
Kasp: it heaty and keep it hard. 


Aber jetzt: NIL NISI OPTIMUS ! 
"Ich warte auf eine Reaktion von Ihnen 


® S 
Lyrik-Maschine 
Der »Versifikator« in George Orwells Roman 
»1984« ist eine Maschine, die Gedichte und Lieder 


schreiben kann«=yrik 3.0 macht auch aus dem 
C 64 einen ‚Versif 


Nachdem ich meine ersten Ma- 
schinencode-Routinen zusam- 
mengeflickt hatte, wußte ich es 
plötzlich: Dies ist meine Berufung! 
Ich jonglierte also tagelang mit 
LDA, CPX, PHA und der Basic- 
Compiler wurde mein natürli- 
cher Feind. 

Eine Sprache wie Lisp hinge- 
gen faszinıerte mich sofort, da 
das Thema »Artıficial Intelligen- 
ce« einen besonderen Einfluß auf 
mich ausübte. 

Meine Gedanken hüpften also 
so zwischen Assembler, Lisp und 
Alhin und her, als ıch urplötzlich 
von einer Welle der Nostalgie 
überspült wurde. Platsch! Ich ent- 
sann mich des guten alten Basics. 

Ich setzte mich also vor meinen 
C 64, zwang die Schwarzweiß- 
Glotze mit brutaler Gewalt dazu, 
ein einigermaßen anständiges 
Bild zu erzeugen, nahm die klas- 
sische Programmıierhaltung Nr. 
8/c an und legte los. 

Aber was sollte der Computer 
denn produzieren? Bunte Bild- 
chen, monumentale Oratorien 
oder etwa ... Gedichte? 


ikator«. 








Da ıch Absolvent eines 
Deutsch-Hochleistungskurses an 
unserer Schule bin, lag doch 
nichts näher, als den C 64 Iyrı- 
sche, epische oder dramatische 
Texte verfassen zu lassen. Ich ent- 
schied mich für die erste der drei 
poetischen Gattungen. Es ent- 
stand »Lyrik 1.0«. 

Dieses war nun indes von der 
Struktur her gar widerwärtig auf- 
gebaut, so daß ich es verschämt 
auf einer selten benutzten Disket- 
te vor den prüfenden Augen der 
Computerwelt verbarg. 

Die zweite Version dagegen 
war vom Prinzip her goldrichtig 
gestaltet, jedoch war ıch an den 
Programmteil »Deklination« mit 
erschreckender Unsystematik 
herangegangen, so daß ich die- 
ses am Ende verpfuschte und 
»doppelplusungut« arbeitende 
Programm ebenfalls verschwin- 
den lassen mußte. 

Doch dann: Lyrik 3.0 war fertig- 
gestellt. Und wer beschreibt das 
Staunen der mich umgebenden 
Menschenmassen? Lyrik 3.0 
funktionierte. (Dirk Meier) 
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Eingabehilfe C 64/VC 20 


Eingabehilfen 
mit Check- 
summer 64V 3 


und MSE 


Fehler beim Eintippen von Listings 
können ärgerlich sein — wenn man 
sie nicht rechtzeitig bemerkt. 64’er- 
Programme sind jedoch problemlos 
einzugeben. 














Bei beiden Programmen handelt es sich um Eingabeerleich- 
terungen unserer Listings. Ferner werden alle Tippfehler be- 
merkt und angezeigt. 

Mit dem Checksummer 64V3 läßt sich überprüfen, ob eine 
Basic-Zeile korrekt eingegeben wurde. Dazu muß zuerst das 
Programm Checksummer 64V3 geladen und mit RUN gestar- 
tet werden. Ist das geschehen, erscheint, sobald Sie eine Zeile 
eingeben und mit RETURN abgeschlossen haben, links oben 
auf dem Bildschirm eine geklammerte Zahl in reverser Darstel- 
lung. Bei dieser Zahl handelt es sich um eine Prüfsumme. Sie 
Mußimit der ebenfalls geklammerten Zahl am Ende jeder Basic- 
Zeile übereinstimmen. Tut sie das nicht, haben Sie einen Tipp- 
fehler gemacht. Die Prüfsummen im Listing dürfen nicht mit ab- 
getippt werden. Basic-Listings enthalten keinerlei Steuer- und 
Grafikzeichen, dafür aber unter- beziehungsweise überstri- 
chene Zeichen und Wörter in geschweiften Klammern. Dabei 
bedeuten: 
unterstrichenes Zeichen = SHIFT-Taste + Zeichen 


- überstrichenes Zeichen = Commodore-Taste + Zeichen 
. die Wörter in geschweiften Klammern: 


UP DOWN, RIGHT, LEFT = Cursorsteuertasten 

Ferner werden alle Farben ausgeschrieben. Die Farbe, de- 
ren Abkürzung Sie auf der Tastatur des C 64 wiederfinden, er- 
reichen Sie über die Control-Taste (CTRL) beziehungsweise 
Commocdore-Taste plus der Farbtaste. 

Zahlen in geschweiften Klammern geben an, wie oft die Ta- 
stenkombination unmittelbar hinter der Zahl zu drücken ist, 
zum Beispiel 25SPACE = 2x Leertaste. 

Das Listing zu diesem Checksummer V3 finden Sie zum er- 
stenmal in der Ausgabe 8/85, Seite 54, und ab dem Sonder- 
heft 4. Alle anderen Checksummer-Listings (vor der Ausgabe 
8/85; diese müssen mit dem Checksummer 64V2 eingege- 
ben werden) sind damithinfällig. Die ausführliche Anleitung aus 
diesen Ausgaben kann jedoch weiterhin benutzt werden. 

Der MSE unterstützt die Eingabe von Listings, die in Maschi- 
nensprache geschrieben wurden. Bei ihm handelt es sich um 
einen Maschinensprache-Editor, der Fehleingaben aus- 
schließt. Eine abgetippte Zeile wird nur dann angenommen, 
wenn sie richtig eingegeben wurde. 

Das Listing zum MSE mit ausführlicher Anleitung finden Sie 
in den Ausgaben 1/85 bis 6/85. Auch dieses Programm ist auf 
jeder Leserservice-Diskette gespeichert. 

Außerdem schicken wir Ihnen gegen Einsendung eines an 
Sie selbst adressierten Briefumschlags (Größe DIN C5 = 0,80 
Mark, DIN C4 = 1,10 Mark Porto) gerne das Listing zum MSE 
und Checksummer 64V3 zu. 
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Maschine 


Durch einen intelligent programmier- 
ten Satzbaualgorithmus erzeugt die- 
ser Lyrik-Generator semantisch korrek- 
te Sätze. Der Wortschatz läßt sich 
leicht erweitern. 


Die folgende Programmbeschreibung zeigt Ihnen, wie das 
Programm funktioniert und Sie Ihren eigenen Wortschatz anle- 
gen können. Wie stellt das Programm nun ein Gedicht her? 

Als erstes müssen ihm verschiedene Parameter übergeben 
werden: 

Anzahl der Strophen (AZ), Anzahl der Verse innerhalb jeder 
Strophe (VA%(X)), und der Satzbau jedes einzelnen Verses 
(MNS(X)). 

Sofern diese Daten nicht von Ihnen eingegeben werden, 
werden AZ und das Variablenfeld VA% (X) mit geeigneten Zu- 
fallszahlen aufgefüllt, während der Computer die Satzstruktu- 
ren MN$(X) aus dem »Satzbauten-Katalog« CO$(X) auswählt. 
Dieser wird bei der Initialisierung aus den Daten der DATA- 
Zeilen 1000-2000 gebildet. Diese ganzen Vorarbeiten wer- 
den im Auto-Modus in den Zeilen 814-818, im manuellen Mo- 
dus in den Zeilen 108-242 ausgeführt. 


Nun kommt der weitaus schwierigere Teil: Es mÜSSCRNER on 


deutsche Sätze gebildet werden, die den gewünschten 

bau besitzen und gleichzeitig den Regeln der deutschen Spra- 
che genügen. 

Wie geht das nun vor sich? 

Der C 64 holt sich den Satzbau des aktuellen Verses aus 
MNS$(X) und legt ihn in W$ ab. Dann durchsucht er W$ nach ei- 
nem ihm bekannten Mnemonik und gibt gegebenenfalls eine 
Fehlermeldung aus. Wird der Mnemonik erkannt, so springt 
das Programm in die entsprechenden Routinen zur Ausfüh- 
rung des Befehls. Die Routinen sind teilweise von sehr unter- 
schiedlicher Komplexität. So wird bei der Routine UND einfach 
nur ein »und« an den bisherigen Vers angehängt. Bei der Routi- 
ne SUBJEKT hingegen wird eine ganze Nominalphrase, beste- 
hend aus Artikel, Adjektiv und Substantiv, generiert. Dies funk- 
tioniert so: Zuerst werden die Parameter des Mnemonik — Arti- 
kel, Adjektiv, Kasus und Numerus — in der Variablen EA,ED, 
EF,EP eingelesen (Zeile 322 ff). 

Da der Kasus des Adjektivs und des Artikels vom Substantiv 
abhängt, muß dieses zuerst bestimmt werden. Dies geschieht, 
wie auch alle folgenden Wortauswahlen, per Zufallsgenerator 
(Zeile 328). Dann wird der passende Artikel entweder aus der 
Tabelle AR$(X) (bestimmte Artikel) geholt oder selbst gebildet 
(unbestimmter Artikel) und mit der korrekten Endung aus der 
Tabelle EN$(X) versorgt (Zeilen 330-340). Danach wird ein 
Adjektiv ausgewählt und mit der entsprechenden Endung ver- 
sehen, die nichtnur vom Kasus, Genus und Numerus des Sub- 
stantives, sondern auch vom Artikel abhängt. Die Endung wird 
aus den Tabellen D2(X)-DA(X) herausgesucht (Zeilen 
350-366). Jetzt fehlt nur noch das Substantiv. Dieses wurde 
jaschon ganz am Anfang ausgewählt und muß nun die passen- 
de Endung bekommen. Da ich bis dato kein Linguistiker bin, 
hat mich dieser Teil fast in eine Paranoia getrieben. Ich habe 
es aber schließlich geschafft, aus der Endsilbe und den darin 
enthaltenen Vokalen, dem Kasus, Genus und dem Numerus 
die richtige Endung zu bestimmen, zumindest für 98 Prozent 
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aller Worte (Bei Fremdwörtern kann sich das Programm even- 
tuellauch mal irren). Die Parameterübergabe erfolgt in den Zei- 
len 370-378, die Endung wird in den Zeilen 930-966 be- 
stimmt. 

Sind schließlich gemäß dem Satzbau in W$ alle Glieder des 
Verses bestimmt, so wird der erzeugte Vers ausgegeben und 
das Programm fährt mit dem nächsten Vers fort. 

Bei Ergänzen des Wortschatzes muß beachtet werden, daß 
sich im Programmkopf zu den einzelnen Wortarten je ein Zäh- 
ler befindet (zum Beispiel Q3), der um 1 erhöht werden muß, 
sobald eine DATA-Zeile der zugehörigen Wortart hinzugefügt 
wird. 

Wie sehen nun die einzelnen DATA-Zeilen aus? 

Wichtig sind hier nur die Zeilen mit den Nomen, Adjektiven, . 
den Verben und den Satzstrukturen, die im folgenden näher 
erklärt werden sollen. 

Nomen (ab Zeile 2200): 
DATA MANN,MAENNER,MAENNLICHE 1 

Das erste Wort ist die Singular-, das zweite die Pluralform. 
Danach folgt ein Adjektiv. Dieses muß im Plural stehen. Das 
heißt, es muß mit einem »e« enden. Die Zahl zum Schluß gibt 
das Geschlecht des ersten Wortes an. »1« bedeutet männlich, 
»2« weiblich, »3« sächlich, »4« ein Name. 

Verben (ab Zeile 6000): 
DATA LAEUFT, LAUFEN 1 

Das erste Wort muß eine 3. Person, Singular-Form sein. Das 
zweite einfach ein Infinitiv. Die Zahl zum Schluß gibt an, ob das 
Verb transitiv (wie beispielsweise »schlagen« oder »messen«) 
oder intransitiv (»schlafen« oder »zerbersten«) ist. Im ersten 
Fallmuß die Zahl O sein, im zweiten 1. Eine 2 würde bedeuten, 
daß das Verb eigentlich beides ist. 

Satzstrukturen (ab Zeile 1000): 


EIN "SUB1001 VRB11” , "EIN HUND SCHLAEFT” 
S 


erste Datum ist eine korrekte Satzstruktur, das zweite 
ein Satz, wie er möglicherweise von dieser Satzstruktur er- 
zeugt worden sein könnte. 

Nun liegt es an Ihnen den Wortschatz von Lyric 3.0 so zu 
übernehmen, wie ich ihn vorgegeben habe, oder ihn nach Ih- 
ren Wünschen zu ändern. 

So ist es zum Beispiel möglich, die Stimmung, die ein von Ly- 
ric 3.0 erzeugtes Gedicht hervorrufen kann, gezielt zu beein- 
flussen. Verwenden Sie zum Beispiel nur Worte wie »Glas«, 
»kalt«, »Beton«, »metallisch«, »einsam«, so kann das entstande- 
ne Gedicht wahrscheinlich einwandfrei als Kritik an der Isola- 
tion von Bewohnern eines Hochhauses in einer Großstadt in- 
terpretiert werden. Oder Sie verwenden nur Worte wie »Ne- 
bel«, »See«, »Drache«, »Hobbit«, »Gandalf«, »Baumbart«. In die- 
sem Fall werden die erzeugten Gedichte sicherlich einen voll- 
kommen anderen Charakter bekommen. 

Zwei Fragen müssen nun noch geklärt werden: Was hat es 
mit den Satzstrukturen auf sich und wie läßt sich das Pro- 
gramm erweitern? Die Satzstrukturen sind Strings, die dem C 
64 genau mitteilen, wie die Form eines Verses aussehen soll. 
Ein Beispiel: | 
SUB1101 UND SUB2102 VRB12 TMP SUB2032 

Die dreibuchstabigen Wörter sind Mnemoniks, die ein be- 
stimmtes Wort oder eine Gruppe von Wörtern symbolisieren. 

»SUB« erzeugt ein Substantiv. Die darauffolgenden Zahlen 
geben dem C 64 nähere Informationen zu dem Wort. 

1. Zahl: O0 — Wort ohne Artikel 
1 — mit unbestimmten Artikel 
2 — mit bestimmten Artikel 
2. Zahl: O0 — Wort ohne Adjektiv 
1 — mit Adjektiv 
3. Zahl: 0 — Wort im Nominativ 


1 — Genitiv 
2 — Dativ 
3 — Akkusativ 


SER... 
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4. Zahl: 1 — Wort im Singular 
2 — Wort im Plural 
UND gibt das Wort »und« aus. 
ODR gibt »oder« aus. | 
TMP erzeugt eine temporale Bestimmung, wie »heute« oder 
»NUN«. 
IST gibt »ist« aus. 
SND gibt »sind« aus. 
KON erzeugt eine Konjunktion, wie »weil« oder »eher als«. 
KOM gibt ein Komma aus. 
PRA erzeugt eine Präposition, wie »neben« oder »in«. 
DIE gibt »die« aus, um Sätze wie »Wirbel, die zerfließen« erzeu- 
gen zu können. 
VRB erzeugt ein Verb. Es wird durch zwei direktfolgende Zah- 
len spezifiziert. 
1. Zahl: 
O — transitives Verb 
1 — intransitives Verb 
2. Zahl: 
1 — Singularform 
2 — Pluralform 
IWO gibt so undefinierbare Worte wie »immer wieder« oder 
»niemals« aus. 
KSS erzeugt ein Subjekt wie »niemand« oder »alles«. 

Die oben genannte Satzstruktur könnte zum Beispiel folgen- 
des erzeugt haben: »Ein bunter Hund und die silbernen Ringe 
schlagen nun die Wände.« Lyric 3.0 ist vom Aufbau her teilwei- 
se recht kompliziert, daher hier ein paar Erläuterungen zu den 
verschiedenen Abschnitten des Programmes: 


11-28 Variablendefinition und Anlegen der Felder 

29-47 Anfangsbild 

49-64 Einlesen der Wörter und Endungen in Felder 
100 


nutzer. 

Folgende Daten müssen bestimmt werden: 
‚Anzahl der Strophen 

Anzahl der Verse der einzelnen Strophen 
Satzstrukturen der einzelnen Verse 

Auf Wunsch kann aber auch alles vom Com- 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM ANZAHL VON: 
O8=17:REM MNEMONIC-KETTEN 
; Bi=8: REM PRAEFOSITIONEN 
D2=&:REM TEMPORALE BESTIMMUNGEN 
Q3=25:REM KONJUNKTIONEN 
04=138:REM NOMEN,ADJEKTIVE 
OS5=9@: REM VERBEN 
O6=1Q: REM IRGENDWELCHE WORTE 
@7=8:REM ENDSILBEN FUER NOMEN 
Q8=6:REM IRGENDWELCHE SUBJEKTE 
FOKE 53281,14:POKE 53288,6: PRINT CHR$(1 
AT)ICHRE (14) CHR$ (8) 
DIM VAZ(28) „MN$ (159) „PM$ (22,1) ,D?$(11), 
D3#+ (15) ,D4# (15) ‚DA (04+05-2) 
DIM EN$ (15) ‚AR$ (15) „PR&$(Q1-1) ‚ZE$ (07-1) 
„KO (05-1) „NO$ (04-1,3) 
DIM VB&(05-1,2) ,E# (28) ‚CO$ (02-1) ,IW$ (06 
-1) ,‚ES$ (08-1) 
51=54272:52=81+7:53=52+7:FOR A=® TOD 24: 
POKE Si+A,Q:NEXT 
FOR A=1 TO Z28:FOR B=1i TO ® STEP-1:PRINT 
"SHOME}";:FOKE 645,RB:POKE S1+24,8:FOKE 
51+24,15 
PRINT:FRINT" 


LYRIC 3.8 


IT’S AN EXPERIENCE ! 


WRITTEN BY 
DIRK MEIER 


DIRK MEIER’S LYRIC 3.0":PR 
:NEXT B,A 

POKE 44&,1:PRINT:PRINT" EIN SEDICHT-SYN 

THESE PROGRAMM. " 

PRINT:FRINT" ENTWICKELT NACH NAECHTELAN 


242 
300- 
700- 


700 
770 
800- 818 


906 
928 


900- 
920- 


930- 966 


970- 978 
980- 989 
990-1000 
1000-1500 
2000-2200 


2200-6000 
ab 6000 





puter erledigt werden. 

Ende der Session 

Auswertung der Satzstrukturen 

Ausgabe eines Verses auf Bildschirm und 
eventuell Drucker 

Automodus ? Wenn ja, dann Erzeugung aller 
notwendigen Daten 

Auswertung eines Tastendruckes (ja/nein) ? 
Routine zur Eingabe maximal zweistelliger 
Zahlen 

Routine zur Berechnung der Endung eines 
Substantives aus Kasus, Genus und End- 
silbe 

Soundroutine 

Gong 

Musikroutine 

Satzstrukturen 

Endungen, Präpositionen, Konjunktionen 
etc. 

Nomen und Adjektive 

Verben 


Das Programm benutzt viele Variablen. Die wichtigsten: 


E$(X) 
z2 
Z1 
AZ 


VA%A(X) 
AR$ 


Beginn der Session zwischen C 64 und Be- E 


BA) 
AD$ 


Feld, das die einzelnen Worte eines Verses 
enthält 

Zeiger auf das nächste freie Element von 
ES(X) 

Zeiger auf den nächsten noch nicht interpre- 
tierten Buchstaben der aktuellen Satzstruk- 
tur 

Anzahl der Strophen 

Anzahl der Verse der einzelnen Strophen ‘ 
j,n: Soll gedruckt werden? 

Anzahl der Satzstrukturen, Nomen etc. 
Dieses Feld enthält die Satzstrukturen für 
das ganze Gedicht 

Endung, die zu dem Subjekt addiert werden 
muß. 


Ich schlage Ihnen einfach mal vor, daß Sie ein wenig mit Ly- 


ric 3.0 herumexperimentieren. 


GEN" 
PRINT" 
MMATIK." 


(Dirk Meier/hm) 


SCHLACHTEN MIT DER DEUTSCHEN £RA 


PRINT" SREETINGS TO STORM,BORCHERT,ERIE 


D,ASTEL 


PRINT=ZFRINT" 


SEER: 7 


FPRINT:FRINT" 
E}NILSL{SHIFT-SFACEFOPLIMUS 
PRINT CHR#E (18) " 


UND ENZENSEERGER. .." 

BUT NEVER FORGET: "=PRINT" 
HEAVY AND KEEF IT HARD..." 

ABER JETZT: NLL{SHIFT-SPAC 
’">:PRINT 

JICH WARTE AUF EINE REAK 


TION VON IHNEN {2SFPACE}" 


GET A$:1I 


F OAF=""THEN 46 


GOSUR 972:PRINT CHR# (18) " {11SPACEFBITTE' 
ETWAS WARTEN {11SPACE}" 


FOR A=1 
FOR A=® 
D At,At, 
FOR A=2 
NGEN 

FOR A=® 
NGENZ 
FOR A=2 
NGENS 
FOR A=0 
NGEN4 
FOR A=2 
„ARTIKEL 
FOR A=B 
AEPOSITI 
FOR B=® 
TEMP. BE 
FOR A=2 


TO 
TO 
A# 
TO 


SS:READ A#:NEXT 
O2-1:READ CO#(A) „AF:NEXT:REA 


1S:READ EN$ (A) :NEXT:REM ENDU 


TO 11:READ D2#{A) :NEXT:REM ENDU 


TO 15:READ D3#(A):NEXT:REM ENDU 


TO 15:READ D4# (A) :NEXT:REM ENDU 


15:READ AR#{A):NEXT:REM BEST 


To 


TO @1-1:READ FPR$(A):NEXT:REM PR 
ONEN 

TO 82-1:READ ZE#(B):NEXT B:REM 

STIMMUNGEN 

TO 85-1:READ KO#{A):NEXT=:REM KO 


NJUNKT TIONEN 


FOR A=B 


TO B85-1:READ IWE(A):NEXT:REM IR 


GENDWELCHE WORTE 
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62 FOR A=B TO Q8-1:READ KS#$tA):NEXT A:REM 


IRG. 


SUBST. 


65 FOR A=2 TO Q4-1:FOR B=8 TO 3:READ NO$ (A 


„B)zNEXT B,A:REM NOMEN,ADJEKTIVE 


64 FOR A=8 TO 85-1:FOR B=8 TO 2:READ VB#(A 


102 
102 
1285 


187 
128 


197 
118 
111 
112 
115 
114 


116 
118 


120 


122 
124 
154 
156 
158 


140 


141 
142 


144 


146 
192 


181 


192 
185 


184 
185 
185 
198 


192 
196 
2» 
222 
294 
206 
208 
218 
iz 
214 
216 


218 


‚„B)zNEXT R,A:REM VERBEN 

GOSUB 97@:PRINT CHR$(147)" 

LASSEN WOLLEN SIE SICH DIE" 

PRINT" SEDICHTE DOCH SICHERLICH. . . ODER 
?":G0SUR 988 

GET DR$: IF DR$<>"J"AND DR$<>"N"THEN 18 

5 

A$=DR$: GOSUB 999:G0T0 888 

FRINT=FRINT" KOMMEN WIR ZU DEM AUFBAU 

DER STROPHEN. " 

PRINT" HIE VIELE STROPHEN SOLLEN ES SE 
IN ?"3:G60SUB 988 

GOSUR F2@:AZ=KK: IF AZ=1 THEN 122 

IF AZ<1 THEN PRINT:GOTO 118 

PRINT=PRINT" SOLLEN ALLE STROPHEN DIE 

GLEICHE" 

PRINT" ANZAHL VON VERSEN HABEN ?"3:608 

UB 9788 

GET FS$:IF F3$="J"THEN PRINT" 
122 

IF FS$<>"N"THEN 114 

PRINT" NEIN":PRINT" HIEVIEL YVERSE SOLL 

EN ES JEWEILS SEIN ?":FOR D=@ TO AZ-i 

PRINT D+1". STROPHE ";:60SUB 928: VA%Z(D 
)=KK:NEXT:GOTO 136 

PRINT=:PRINT" {SHIFT-SPACE}VIEVIELE VERS 

E SOLLEN ES SEIN ?";:G0SUB 98@:60SUB 9 

208:Fi=KK _ 

FOR A=2 TO AZ-1:VAZ (A) =FiI:NEXT 

AS=CH$: GOSUB 98: PRINT 

PRINT" HIR KOMMEN ZUM FORMALEN AUFBAU 

DER":PRINT" STROPHEN UND VERSE." 

PRINT" HOLLEN SIE EIGENE SATZSTRUKTURE 

N" 

PRINT" EINGEBEN (1) ODER BEREITS GESPE 
ICHERTE":PRINT" VERWENDEN 2)"; 

GOSUB 9788 

GET Fi$:IF Fi$<>"1"AND Fi$<>"2"THEN 14 

2 


AUSDRUCKEN 


JA":GOTD 


IF F1i$="2"THEN PRINT" GESPEICHERTE":60 
TO 288 ; 
PRINT" SELBST EINGEBEN" 


PRINT CHR$#(147):PRINT" 1. STROPHE":FOR 
A=1 TO VAA{B):=PRINT A". VERS"; 

INPUT MN$(A-1)=NEXT: IF F3$="N"THEN PRI 

NT:GOTO 198 

IF AZ=1 THEN 196 

PRINT:PRINT" SOLLEN ALLE RESTLICHEN ST 

ROPHEN DEN" 

PRINT" GLEICHEN AUFBAU BESITZEN "5;:605 

UR 9788 

GET Fi$:IF Fi$="J"THEN PRINT" 
1785 

IF F1$<>"N"THEN 185 

PRINT" NEIN":FOR A=1 TO AZ-1:PRINT At+1 

". STIROPHE":FOR B=1 TO VAA(AI:PRINT B" 

 :SERB"Z 

INPUT" "3MN$(A*VAZ (A) +B-1):NEXT B:PRIN 

T=zNEXT A:GDTO 508 

FOR A=1 TO AZ:FOR B=B TO VAZ(B)-i:MNE( 

A#VAZ(AI+B)I=MN$ (B) :NEXT B,A:GOTO 328 

PRINT:PRINT" IHR £654 WIRD IHNEN NUN AL 

LE IN DEN" 

PRINT" DATA-ZEILEN GESPEICHERTEN SATZ- 


JA”":GOTO 


PRINT" STRUKTUREN AUFLISTEN UND FRAGEN 
a 

PRINT" OB SIE SIE BEI IHREM’ SEDICHT 
PRINT" VIELLEICHT BRAUCHEN KOENNEN. ":P 
RINT" EINE ERSTE AUSWAHL ALSO." 


PRINT" DAMIT SIE SEHEN,WAS SIE DA SO A 
US- 2. 

PRINT" WAEHLEN,„WIRD IHNEN ZU JEDER STR 
UFTUR" 

PRINT" EIN SATZ GELIEFERT,WIE ER VOM £ 
RORAMM". 

PRINT" UNTER BENUTZUNG EBEN JENER STRU 
KTUR" 

PRINT" PRODUZIERT WERDEN KOENNTE. ":ZZ= 
B:RESTORE: GOSUR 788 
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<B66> 
<B18> 
x<212> 
<B5&> 
<118> 


<238> 
<252> 


<B40> 
<065> 
<B45> 
<182> 
<126> 
<127> 


<212> 
<B24> 


<135> 
<218> 
<228> 
<9635> 
<205> 
<136> 


<218> 


<128> 
<B21m 


«2356? 


<B29> 
<827> 


<BB2> 


<B77> 
<151> 


<B453> 
<225> 
<sBBö> 
<a? 
127 
146 
<201. 
s211> 


<a92> 


2B6> 
251? 
„128 
«1495 


<125> 


217 
228 
221 
222 
224 
226 
258 
252 


254 
236 


257 


248 
241 


242 


saB 
>@1 


>02 
s@3 


>94 


>85 


FOR A=1 TO S5:READ A$:NEXT 

FRINT:READ A#,B#: IF A$="@@e@"THEN 2538 

PRINT A#t:FRINT B#:PRINT CHR#(18) "J/N" 

GET C$: IF C$="N"THEN 228 

IF C$<>"J"THEN 222 

PM$ (ZZ ,B)=At:PM#(ZZ,1)=B$: ZZ=2Z7+1:6G0T0 
228 


FPFRINT:PRINT" HAEHLEN SIE NUN FUER JEDE 
N MERS DIE" 
PRINT" GEWUENSCHTE SATZSTRUKTUR AUS.": 


GOSUB 988 

BET A$: IF A$=""THEN 234 

PRINT CHR$(147):PRINT:FOR A=8 TO ZZ-1: 

PRINT CHR$(A+65)". "3PM$(A,1) NEXT 

FOR A=® TO AZ-i:FOR B=@ TO VA%(A)-1:PR 
INT CHR$ (19) " {23SPACE>" 

PRINT CHR$(19)A+1". STROPHE,"B+1". 

S{SSPACE}" 

GET A$: IF A$=""THEN 240 

IF ASC(A$)<65 OR ASC(A$) >ZZ+64 THEN 24 
" 

MN$ (A*VAZ (A) +B) =PM$ (ASC (A$) -65,8) :NEXT 
B,A 

REM +++++ MNEMONICS AUSWERTEN ++++ 

POKE 53281,5:POKE 53288,8:POKE 646,1:P 

RINT CHR$ (147); 

FOR A=1 TO iB:PRINT:NEXT:PRINT TAB(1®) 


SER 


’ 

FOR A=1 TO 19:PRINT MID$("L’ART FOUR L 
"ART...",A,l)s:FOR B=1 TO 12 

POKE S1+24,@:POKE S1+24,15:NEXT B,A:FO 

R A=1 TO 18@8:NEXT: IF DR$="J"THEN OPEN 
1,4,8 

PRINT CHR$(147):FOR A=® TO AZ-1:FOR B= 

@ TO VAX(A)-1:W$=MNS$ (ArVAZ (A)+B): Zi1=1: 

Z2=® 


3B& M£=MIDF (WE, Z1,3):IF M$=""THEN 712 

307 REM u BD 

>98 IF M$="UND"THEN E#(7Z2)=M$: Z1=21+4:60T0 
718 

ar REM === DER = 

Pier ME="ODR"THEN E$(Z2)="ODER": Z1=Z1+4: 
GOTO-718 

5:3. REM: === PRREPISITION ——= 

>12 IF M$="PRA"THEN E#(Z2)=PR$(RND(1)*Q1): 


515 
>14 


>15 
316 
>18 
3197 
S320 


nm 
322 


324 
5326 
>28 


327 


332 
331 
332 
3354 
>42 


>52 
551 
352 


364 
>66 
>72 


Z1=21+4:60TD 718 

REM ---- KONJUNKTION ---- 

IF M$="KON"THEN E# (Z2)=KO$ (RND(1)*Q5F): 
Zz1=21+4:6G0T0 718 

REN == TEMP, BESTIMENG =—— 

IF M$<>"TMP"THEN 320 

E#(Z2)=ZE$ (RND(1)*Q2):Z1=Z1+4:60T0. 712 

REM ne BUBIERT ——— 

IF M$<>"SUB"THEN 418 

ERA=VAL (MIDE {WE ,Z1+3,1))zED=VAL (MIDF (W$ 
„Zi+4,1)):2EF=VAL(MIDE(W$,Z1+5,1)) 

EF=VAL {MIDF (WE ,Zi1+6,1)) 

IF EP=2 AND EA=1 THEN EA=2 

WA=INT (RND (1) #B4) :GE=VAL (NO$ (WA,S))-1 
IF GE=-1 THEN EA=B: GE=-B:ED=-B:F%=1:60T0 
5378 

F%=B: IF EA{2 
IF EP=1 THEN 
IF EP=Z2 THEN 
Z2=72+1:G0TO 
IF EA=1 THEN 
 Z2=72+1 

IF ED=B THEN 378 

IF EP=2 THEN 362 

E#(Z2)=ND# (RND(1)*Q04,2): IF EA=B THENE 
$(Z2)=E# (Z2) +DI$ (EF*S+GE) 

IF EA=1 THEN E#(Z2)=E$ (72) +D2$# (EF*S+GE 
) 

IF EA=2 THEN E#(Z2)=E$(Z2) +D4$ (EF*S+GE 
) 

22=12+1:60T0 378 

E# (Z2)=NO#F (RND(1)*04,2):IF EA=B THENE 

#(Z2)=E$(Z2) +DS$(EF+12) 

IF EA=2 THEN E#(Z2)=E$(Z2) +D4$(EF+12) 
Z2=I2+1:REM ####* SUBSTANTIV ####%* 
E+(Z2)=NOF (WA,„EF-1):LBF=RIGHT$ (E$(Z2), 
1)zL1$=MID$ (E#(Z2) „LEN(EF(ZZ2))-1,1) 


THEN 348 

E+(Z2)=AR$ (EF*S+GE) 

E# (ZZ) =AR$(EF+12) 

>50 

E+(ZZ2)="EIN"+EN$ (EF#S3+GE) 


<248> 
197> 
<2335> 
<248> 
<131> 


<225> 
2904 > 


<168> 
<B77> 


<BB4 > 
“226> 


<x175> 
<146> 


<288> 


<215> 
<2597> 


<B14> 
«225> 


<258> 


<B85> 


<197B> 
<1357> 
<178> 


<B72> 
<137> 


<231> 
<297B> 


<125> 
<148> 


<250> 
<B55> 
<2907> 
<144> 
<B57> 
<158> 


<247> 
<881> 
<117> 
«235> 


<156> 
<Bö1> 
<1685> 
<158> 
<B94> 


<157> 
<146> 
<218> 


<154> 


<Q49> 


<107> 
<152> 


<B75> 
<977> 
<247> 


<1906> 


Listing zu Lyric 3.0. Beachten Sie bitte die Eingabe- 
hinweise auf Seite 54. 
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ine.de 


416 


418 
430 
432 
434 
440 
442 


444 
446 


448 
458 


452 


454 
456 


677 
722 


718 
722 


7ı4 
RE 
724 


738 


742 
758 
768 


7682 
764 
786 
768 
778 
822 
882 


884 


805 


808 


812 
812 
813 
814 


Bis 


818 


?82 
782 
724 
70% 
9282 
922 
924 


2 ee 


926 
728 


LZ#=MID# (E#(Z2) „LEN(E$(Z2))-2,1) 
vo=2: IF LBOF="A"OR LB$="E"OR LOF="1"OR 
LOF="D"OR LB#="U"THEN VO=192 

IF LI$="A"OR L1$="E"DOR L1$="1"OR Li$=" 
DO"OR LiF="U"THEN VO=VO+1® 

IF LZ$="A"OR LZ$="E"OR LZ$="1"OR LZ$=" 
U"OR LZ#="U"THEN VO=VO+l 
LI#=LOF+L1$:LS$=RIGHT$ (E$ (Z2) ,3) 

GOSUB FSB: EF(Z2)=E# (Z2) +AD$: Z1=21+8:60 
TO 718 

REM ---- VERBUM ---— 

IF M£< >"VRB"THEN 458 

ET=VAL (MIDF (WE ,Z1+3,1)) 2EP=VAL (MID$ (WE 
‚„21+4,1)) 

WA=RND (1) #05: IF (VAL (VB$ (WA,„ZI)<>ET)I AND 
(VAL (VB (WA,ZIII<S>Z THEN 416 

E# (Z2)=VB$ (WA,EP-1):Z1=Z1+68:6G0T0 718 
REM ---- IRGENDWELCHE WORTE 
IF Mt<>"IWO"THEN 4408 

Ef (Z2)=IWEF(RND(1)*06):21=71+4:60TD 718 
REM: me DIE 
IF M$="DIE"THEN E$(Z2)="DIE":Z1=Z1+4:6 


OTO 718 
REM -———— 5 

IF M$="KOM"THEN E$(Z2)=",":21=Z1+4:60T 
o 718 

REM ---— IST/SIND --——- 

IF M$="IST"THEN E$(Z2)=M$: Z1=Z1+4:60T0 


718 

IF M$="SND"THEN E#$(Z2)="SIND": Z1=Z71+4: 
G0TO 718 

REF: ==——: IRGENDEIN: SUBJEKT === 

IF M$="KSS"THEN E$(Z2)=KS#f(RND(1)*08): 


Z1=71+4:60T0 71@ 
REM ----— AUSGABE ---—----——- 
PRINT"ERROR... UNKNDUN MNEHONTC- "PRINT 
" "sM$:END 

a 


72=72+1:60T70 306 

FOR X=8 TO Z2-1:P$=P$+E$(X):IF E$(X)<> 
"„"THEN P$=P$+" " 

NEXT X 

PRINT LEFT${P$,LEN(P$)-1)5;"." 
IF DRS="J"THEN PRINT#1,LEFT$(P$,LEN(P$ 


I-195". 

P$="":NEXT B=:PRINT: ir DR$="J"THEN PRIN 
T#1 

FOR X=® TO Z2:E$(X)="":NEXT 


IF DR$="J"THEN PRINT#1 

SOSUB 988:NEXT A:CLOSE 1:G60SUB 992: POK 
E 198,0:WAIT 198,1:POKE 198,8 
PRINT=PRINT=PRINT" NOCH’N SEDICHT ?" 
GET A$: IF A$=""THEN 764 


IF A="N"THEN RUN 

IF A$="J"THEN 320 

GOTO 764 

REM ---- AUTO --———— 

PRINT=ZPRINT" SIE KOENNEN ZWISCHEN EINE 

M HALB- E11" 

PRINT" UND EINEM VOLLAUTOMATISCHEN [21 
AKODUS" 

PRINT" WAEHLEN. IM ERSTEREN MUESSEN SIE 

PRINT" ANGABEN ZUR FORM DES SEDICHTES 

MACHEN {3SPACE}IM ZWEITEN NICHT. "3 :G0SU 

B 988 

GET A$: IF As="1"THEN PRINT" HALB":G60TO 
108 

IF A$<>"2"THEN 812 

PRINT" VOLL" 


AZ=INT(RND<(TI)#1B) +53: R=INT {RND (1) #8) +3 
:FOR A=8 TO AZ-1:VA%Z (A)=R:NEXT 

FOR A=B TO R-1:B=INT{RND(1)*Q2):FOR C= 
8 TO AZ-1:MN$(C#R+A)=CO$(B):NEXT C,A 
G60T0 3988 ’ 
REM ++ JA/NEIN ++ 

IF A$="J"THEN PRINT" 
IF A$="N"THEN PRINT" 
RETURN 

REM ++ ZAHLEN-EINGABE ++ 

Kk=@:FOR A=1 TO 8 STEP-1 

GET A$:IF A$=CHR$ (13) THEN KK=KK/18:GOT 
0 928 

IF ASC (A$+CHR$ (B))<4B OR ASC (A$+CHRS$ (BO 
))>57 THEN 924 

PRINT A#; :KK=VAL (A$) #1DtTA+KK 
NEXT=:PRINT:RETURN 


la 
NEIN" 


58 San 


sB47> 


<B67> 


<165> 


«192> 
2198> 


<B12> 
<B85> 
<899> 


<156> - 


<B20> 
<251> 
<214> 
<233> 
074> 
<200> 


<246> 
<172> 


<B975> 
x288> 


<245> 


<1350> 
<1356> 


<128> 
€111> 


<B835> 
<B72> 


<057> 
<154> 


<228> 


<1477> 
x165> 
„171> 


<B94 > 
<238> 
<196> 
<028> 
<@68> 
<208> 
<129> 


2397 


“251> 


<2002> 
<141> 
B83> 


<O53> 


<x294> 
BDBBB> 
<137> 
<B&97> 
<B28> 
<2B2> 
<182> 
<259> 


TRIER 


<258> 
<196> 
<224> 


930 
932 
934 
936 
937 
938 


939 
940 


941 
942 
943 
744 
945 
946 
347 
948 


949 
950 


951 
952Z 
953 
754 


255 
956 
968 
952 
764 
766 
978 
972 


9774 


778 


780 
782 


784 


9784 


788 
989 


770 
992 


996 
997 


7978 


999 


12200 
10901 
12982 
1203 
1204 
18305 
12965 


1207 


REM +++ ENDUNG SUBSTANTIV +++ 
ADS="": IF EF=Z2 THEN 968 

ON GE+1 GOTO 936,952,7356 

DON EF+1 GOTO 952,738, 746,755 

REM +++ SING.MAS.GEN +++ 

AD$="ES": IF LZA$="E"AND (VO AND 112)=182 
AND GE=B THEN AD#="N5":60T0 9745 

IF LS$="NET"DR L2#="RR"THEN ADt="EN":6 

DTO 9745 

IF(LBF="R"DOR LB#="N"OR LB$="L")ANDt(VO 
AND 18)=1B8) THEN AD#+="5":GOTO 945 

IF F%=1 THEN AD$="S":60T0 945 

IF LO$="S"AND VO11<>11 THEN AD#="SES" 


IF VO<x=1 THEN AD#="ES" 

IF AD$="ES"AND L@O#="E"THEN AD$="S" 
RETURN 

REM +++ SING.MAS.DAT +++ 


AD$="E": IF LO$="E"THEN AD$="" 


IF L3S#="NET"OR L2$="RR"THEN ADF="EN":G 
DTO 949 
IF((LBF="R"OR LB$="N"DR LO$="L") AND (VO 


AND 1@=18))OR VO<=1 THEN ADs="" 
IF(VO AND 110)=108 AND GE=@ THEN AD$=" 
u 

IF F%=1 THEN AD$="" 

RETURN:REM +++ SING.MAS.AKK +++ 

IF L3S$="NET"OR L2$="RR"THEN AD$="EN" 
IF(VD AND 11@)=108 AND GE=B THEN AD$=" 
N" 

IF Fi= 
RETURN 
REM +++ PLURAL +++ 

IF EF<>2 THEN 966 

IF LO$<>"N"THEN AD$="N" 
RETURN 

REM ---- TITLE-SOUND 
POKE S1+24,15:POKE S1+5,15:POKE 52+5,1 
S:POKE S3+5,15:POKE 51+6,247 

POKE 82+6,247:FOKE S3+6,247:POKE Si+4, 
17:POKE 52+4,17:POKE 53+4,17 

FOR v=@ TO 179 STEP 5 :POKE S1+1,V:PDK 


1 THEN ADf="" 


64589 0 Ina; 52+1 ,V*5/4:POKE 53+1 ,V*19/7 


NEXT:POKE S1+4,32:POKE S2+4,32:POKE S3 
+4,32: RETURN 
REM == BONG = —— 
POKE S1+24,15+1&:POKE S1+25,7:POKE Si+ 
1,18: FOKE S1+3,18@:POKE S1+5,15 
POKE S1+6,25@:POKE S2+1,6:POKE S2+3,18@ 
B:POKE 52+5,15:POKE S2+6,258 
POKE 535+1,28:POKE S3+3,12@:POKE S3+5,1 
S:POKE S3+6,25@:POKE 51+4,17 
FOKE S2+4,21:POKE SS3+4,17:FOR S=1 TO i 
BR: NEXT:FOKE S1+4,16:POKE S2+4,20 
POKE 53+4,16:RETURN 
REM ---—- MUSIC -———— 
POKE S1,2:POKE S2,2:POKE 53,8:POKE S1+ 
1,2:POKE S2+1,8:FPOKE 55+1,8 
FOKE S1+24,15+16:POKE S1+23,8@:FOKE Si+ 
5,15:POKE 51+6,250:POKE S2+5,15 
POKE S2+6,258: POKE S3+5,15:POKE SI+6,2 
SQ: POKE S1+4,33:POKE 52+4, 33 
POKE S3+4,33:RESTORE:FOR A=1 TO S:READ 
H,X1,X2,Y1,Y2,Z1,Z2:POKE Si+1,X1 
POKE S1,X2:POKE S2+1,Yi:POKE S2,Y2:POK 
E S35+1,Z1:POKE S3,Z2:FOR B=1 TO H:NEXT 
B,A 
POKE 51+4,32:POKE 52+4,32:POKE 53+4,32 
: RETURN 
DATA 19009,6,133,8,180,1®, 
‚18,247,13,18 
DATA 1080,17,183,14,162,10,247,1508,19 
‚„137,26,28,32,219 
DATA 2000,21,237,26,20,34,287 
REM +++++ SATZ-STRUKTUREN +++++ 
DATA "SUB2@®1 VRB1i1","DER STEIN ERSTA 
RRT" 
DATA "SUB2@@1 UND SUB2881 VRB12" 
STEIN UND DAS GEWEBE ERSTARREN" 
DATA "PRA SUB1@21 VRE12 SUB2102", 
TER DEM RAR FLIESSEN DIE STEINE" 
DATA "SUBB122 VREQZ SUB1B31","STEINE 
SCHLAGEN EINEN HANN" 
DATA "SUB2B11 SUB@@BI VRBIil IWO", 
MANNES HUT LIEGT IRGENDWO" 
DATA "KON SUBi1@1 VRBil KOM VRB1i2 SUB 
2002" 


247,500,7,19& 


‚"DER 


"HIN 


"DES 
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2277 
sB56> 
<121> 
x255> 
<231> 
BB: 
<292> 
<239> 
<B33> 
2128> 
-08B6> 
0297: 
<Bi5> 
<291> 
2207> 


<292> 
<925> 


<214> 
<189> 
<212> 
<248> 
1272 
<1355> 
<1974> 
2327 
<201 > 


<1359> 


<247> 
<116> 
<111> 
<118> 


<278> 
<297> 


- <132> 


1227 


x1358> 


278> 


<225> 


s122> 


1988 ae 
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1228 
1207 
1218 
1011 
1212 
1215 
12814 
1215 
1216 
1817 
1218 
1219 
1928 


ı821 


1823 
1950 
1851 
1052 


1955 


1955 


1500 
2220 
2902 
2204 
218 
2812 
2214 
2216 


2817 
2218 


2928 
2922 


2024 
2850 
2240 
2042 


2958 
2254 


2988 
2282 


2884 
2886 
2288 
2278 
2128 
2102 
2194 


2185 


2128 
2122 


DATA "DA DER HUT RINGT,„ESSEN DIE EIER 


DATA "IWDO VRB@1 SUB2RBi SUB2132","NAT 

UERLICH TOETET £ONAN DIE HIETE" 

DATA "SUB2192 VRB12 KOM KON SUB1BBi1 S 
UR2131 VRB21" 

DATA "DER HUT EIERT,WEIL DIE ERAU DAS 
HASSER {2SPACE>TRINKT" 

DATA "SUBBBR2 UND SUBRRYZ2 KOM SUBZBRR1 
VRBi1l” 

DATA "HEXEN UND TEUFEL,„DER HEG VERWHT 
DATA "SUBBRZQ2 KOM DIE VRB1i2","PLANETE 
N,„DIE VERGEHEN" 

DATA "KON IWO SUB28Bi VREiil KOM VRBI2 
SUR2Z222 UND SUB2B22" 

DATA "HEIL KEIN HOLF SCHWERT „SCHLAFEN 
{2SPACE>DIE HUETE UND DIE EIER" 

DATA "SUB2@B1 KOM SUB11@1 KOM VRBBIi 5 
URBQS2" 

DATA "DER HUND,EIN BLAUES TLIER,TOETET 
PFERDE" 


DATA "TMP VRBEiil SUB2181","BALD ERTRIN 
KT CDNAN" 
DATA "TMP IST SUB2881 SUB11@1","NUN I 


ST DER HUT EIN BLAUER FLECK" 

DATA "SUBBRBB2 VRBEIiZ PRA SUB2B21","HER 
ZEN RIESELN IN DEM LICHT" 

DATA "SUBZ@81i VRBil KOM KON SUB2RB1 V 
RR11" 

DATA "DIE EREUDE FUNKELT,„WENN DER ZEC 
HER {6&5FPACE>DUFTET" 

DATA "SUBZ9@@2 SND SUBBI1BZ2 KOM KON SUB 
2281 VRBi1l" 

DATA "DIE BAEREN SIND GRUENE AEPFEL,W 
EIL DER{SSFACE>HUT EIERT" 

DATA "SUBBBOZ2 KOM SUBBBBZ KOM SUBBABZ 
KOM KSS VRB11" 


DATA "REPFEL ,BIRNEN,HIRBEL,ALLES VERG 
EHT" 

DATA "KON SUB2@92 VRB12 KOM IST SUB2® 
21 SUB11B1" 


DATA "WEIL DER HUT SINGT,IST DER HANN 
EINE {&SPACE}BESTIE" 

DATA @@e@, @@e@ - 

REM +++++ DEKLINATIONEN +++++++ 

DATA @1,,E,,ES,ER,ES,EM,ER,EM,EN,E, 

DATA E,ER,EN,E 

REM +++++ DEKLINATIONEN +++++++ 

DATA R,„,S,N,N,N,N,N,N,N,„S:REM EIN 
REM +++++ DEKLINATIONEN +++++++ 

DATA R,,5,N,R,N,M,R,M,N, „S,„R,N,:REM 

NIL 

REM +++++ DEKLINATIONEN +++++++ 

DATA „„,N,N,N,N,N,N,N,,„;‚N,N,N,N:REM D 

ER 

REM +++++ BEST. ARTIKEL +++++++ 

DATA DER,DIE,DAS,DES,DER,DES,DEM,DER, 
DEM,DEN,DIE,DAS 

DATA DIE,DER,DEN,DIE 

REM +++++ ENDSILBEN +++++++ 

REM +++++ PRAEPOSITIDNEN ++++++ 

DATA IN,AUF „NEBEN ,UNTER „UEBER „GEGENUE 

BER,AN,AUS 

REM +++++ TMP. BESTIMMUNGEN +++ 

DATA JETZT ,NUN,HEUTE „SDEBEN,BALD,GLEI 
CH 

REM +++++ KONJUNKTIONEN +++++++ 

DATA WENN,DA,WEIL,DA JA,WEIL NUN EINM 

AL „OBGLEICH, DBWOHL 

DATA AUCH WENN,WENN AUCH „WAEHREND , SOL 

ANGE „SOLANGE BIS 

DATA NACHDEM,„SEITDEM,„EHER ALS,ALS,BEV 

OR,„JEDESMAL WENN 

DATA WIE SEHR AUCH,WENN ABER,„WENN NUR 
„WENN NUR NICHT 

DATA DAMIT,„DAMIT NICHT „SOBALD 

REM +++++ EINFACH WORTE ++++++++ 

DATA "IMMER WIEDER" „ANDAUERND „ "OHNE u 

NTERLASS" „ "NUR NDCH" 

DATA NIEMALS ,SELTSAMERWEISE „MANCHMAL , 
"WIEDER UND WIEDER" 

DATA "ZU KEINER ZEIT",„"FUER IMMER UND 
EWIG" 

REM +++++ DIVERSE SUBSTANTIVE ++++ 

DATA NICHTS,ALLES,"REIN GAR NICHTS" ," 
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<2177 
<1727> 


<189> 


<851> 


<2B8> 
<232> 
<aB7> 
<037> 
<184> 
<211> 
<236> 
<B67> 
<128> 
<196> 
<073> 
<112> 
<178> 
<065> 
<191> 


<BS3B> 


a 


<BRB> 
<237> 
<151> 
<085> 
<235> 
<161> 
<BßB6> 
<165> 


<059> 
<168> 


<B42> 
<125> 


<1580> 
105> 
<aB5> 
<8a51> 


<B61> 
<1978> 


<181> 
<139> 


<B> 
<B20> 
<062> 
<B05> 
<194> 
<B54 > 
<BöB> 
ı237> 


<xa975> 
<161> 





KAUM 


ETWAS" „NIEMAND,ALLE 


2208 REM +++++ NOMEN,ADJEKTIVE ++++++ 


2281 DATA 
2282 DATA 
2283 DATA 
2284 DATA 
2285 DATA 
22926 DATA 
2207 DATA 
2208 DATA 
2207 DATA 
2218 DATA 
2211 DATA 
2212 DATA 
2213 DATA 
2214 DATA 
2215 DATA 
2216 DATA 
2217 DATA 
2218 DATA 
2219 DATA 
2228 DATA 
2221 DATA 
2222 DATA 
2223 DATA 
2224 DATA 
2225 DATA 
2226 DATA 
2227 DATA 
2228 DATA 
2229 DATA 
223® -DATA 
2231 DATA 


2232 DATA 


2233 DATA 
2234 DATA 
2235 DATA 
2236 DATA 
2237 DATA 
2238 DATA 
DATA 
Au DATA 
2241 DATA 
2242 DATA 
2243 DATA 
2244 DATA 
ar. 
2245 DATA 
2246 DATA 
2247 DATA 
2248 DATA 
2249 DATA 
2258 DATA 
2251 DATA 
2252 DATA 
2253 DATA 
2254 DATA 
2255 DATA 
2256 DATA 
2257 DATA 
2258 DATA 
2259 DATA 
22608 DATA 
2261 DATA 
2262 DATA 
2263 DATA 
2264 DATA 
2265 DATA 
2266 DATA 
2257 DATA 
22658 DATA 
2269 DATA 
227@ DATA 
2271 DATA 
2272 DATA 
E,1 
2273 DATA 
2274 DATA 
2275 DATA 
2276 DATA 
2277 DATA 
2278 DATA 
.. 


MEER „MEERE „WAESSRIGE,3 
WALD,WAELDER,GRUENE ‚1 
HAUS „HAEUSER „BLAUE ,3 
MAEDCHEN „MAEDCHEN,HELLE,3 
JUNGE ‚JUNGEN , JUNGE, i 

FRAU „FRAUEN „DUNKLE „2 
TURM, TUERME ‚DURSTIGE,1 
MANN „MAENNER „TROCKENE „1 
PLANET ,PLANETEN,RUNDE, 1 
WUESTE „WUESTEN,KALTE,2 
KAELTE „WINDE, WARME ‚2 

GRAB ,GRAEBER ,EISKALTE,3 
GLOCKE „GLOCKEN,GOLDENE,2 
FELD,FELDER,ALTE,3 

SEE „LEUTE,FEUCHTE,1 

HERR „HERREN ,PRAECHTIGE,1 
WEG „WEGE „BEFAEHRLICHE „1 
TIER,TIERE,GRAUE ,3 
WELT,WELTEN,SCHWARZE,2 
LAND „LAENDER ‚„LLEUCHTENDE ‚3 
KRAEHE „KRAEHEN, TOTE,2 
SCHLACHT „SCHLACHTEN,PRASSELNDE ‚2 
LUFT,LUEFTE,SILBERNE,2 
MACHT „MAECHTE „MAECHTIGE,2 
RING,RINGE ,URALTE,1 
STEINTUER,PFADE „WEISE,2 
ZAUBERER „ZAUBERER „EINSAME, 1 
WOLF „WOELFE „HEULENDE, 1 
FEUER „FEUER „BRENNENDE ‚3 
WOLKE „WOLKEN,WEISSE,2 
WIRBEL,WIRBEL,REISSENDE ‚1 
WELLE ,WELLEN,NASSE,2 
STERN,STERNE ,STRAHLENDE ‚1 
PFERD,PFERDE,STOLZE,3 


"TOR,TORE,GEWALTIGE,S 


FESTUNG ,FESTUNGEN , STARKE ,2 
HOFFNUNG „HOFFNUNGEN ,MUEHSAME „2 
PFLICHT ,PFLICHTEN,ERNSTE,2 

AUGE „AUGEN „MAGISCHE ‚3 

ZWEIFEL „ZWEIFEL,URALTE,1 

STERBEN SCHICKSALE „UNENDLICHE ,3 
GANG ,„SAENGE „UNIRDISCHE , 1 
VERZWEIFELUNG,STIMMEN , GRAUSAME ,2 
WIRKLICHKEIT ,VOELKER „UNWIRKLICHE 


DENKEN „GEDANKEN „DENKBARE ,3 

ORK ,ORKS,GIFTIGE,1 
SCHLANGE „VOEGEL „GEFIEDERTE,2 
ENDE „LICHTER ,DUESTERE,3 

BLICK BLICKE „UNWUERDIGE ,1 
FENSTER „FENSTER ,FENSTERLOSE,3 
TOD ,HOERNER ,LAUERNDE ‚1 

RAUCH „WAENDE „DUNSTIGE,1 

KRIEG ,KRIEGE „VERFLUCHTE,1 
KLIRREN,HORDEN,METALLENE,3 
WAGNIS ,GABEN,FINSTERE,3 

LEBEN ‚GEGNER , TOETLICHE,S3 
STEIN,STEINE,FLUESTERNDE ‚1 
KETTE,KETTEN,SCHWERE,2 
FLUSS,FLUESSE,SPITZE,1 

WILLE „SCHWERTER ,„GLAENZENDE ‚1 
ROSS „ROESSER ,„SCHICKSALSHAFTE ,3 
GASTHAUS „REITER „UNBEKANNTE, S 
TAPFERKEIT ,FAEHIGKEITEN,EDLE,2 
CROM,GOETTER,VERLORENE,@ 

FALKE ,FALKEN,STUERZENDE ‚1 
CONAN , TEUFEL ,HETZENDE,® 
SCHWERT „KATZEN,SCHLEICHENDE ,3 
FREUDE „FREUDEN,STINKENDE ,2 
SLITZERN,BESTIEN,BLUTIGE,S3 
DRACHE „DRACHEN ,GIGANTISCHE,1 
BLITZ,BLITZE,GRELLE,1 
SCHRECKEN „SCHRECKEN „BLUTRUENSTIG 


MOOR ‚SUEMPFE „ TROPFENDE ,S 

MOND ,MONDE „SUECHTIGE,1 

EBER ,MAUERN,WILDE,1 

RABE „RABEN „PECHSCHWARZE „1 
EINSAMKEIT ,ZWEIGE ,„DUMPFE,2 
GEHEIMNIS „GEHEIMNISSE „ VERGESSENE 


Listing zu Lyric 3.0 (Fortsetzung) 


FNFSp 


<12B> 
<258> 
<115> 
<181> 
<225> 
<B48> 
<118> 
<118> 
<177> 
<168> 
<139> 
<Bß82> 
<828> 
<227> 
<115> 
<Ba53> 
<177> 
<188> 
<199> 
<B58> 
<a85> 
<2553> 
<a5S> 
<BsB> 
<24B0> 
<214> 
<145> 
<B45> 
<2355> 
z165> 
<167> 
158> 
<827> 
<164> 
<x149> 
«202> 
<224> 
x1377> 
-074> 
<112> 
<a41> 
<2885> 
<185> 
<157> 
<185> 


<838> 
<128> 
<236> 
<248> 
<249> 
2235? 
<8a22> 
0475 
-058> 
<B85> 
<235> 
<129> 
<150> 
<245> 
<217> 
=0978> 
a21> 
237> 
<1357> 
<087> 
<088> 
ETLE 
<295> 
«0265> 
«862> 
<282> 
<152> 
x2097> 


<B62> 
<129> 
<141> 
<151> 
x187> 
<B355> 


<2357> 
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2279 
2288 
2281 
2282 
22853 
2284 
2285 
2286 
2287 


2288 
2289 
22978 
| 
2292 
22953 


2294 
2295 
2296 


2297 
22978 
22997 
2>528 


2521 


2322 


2325 
2584 
2585 
2350& 
2307 


23588 
2387 
2318 


2511 


2312 


25153 
23514 
2515 
2516 
2317 
2318 
25319 


2328 


oırn7 
ur 


23522 
2323 


23524 


2325 
23265 


232 


2328 
3297 
235 


23531 


23532 
2333 
23354 
2335 
2336 
2337 


23358 
BRD 
us Bl 
6202 
6295 
6284 
aa 
saB& 
6207 
&BB8 
227? 
sBin 
6211 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


VERLANGEN, WIESEN ,EKSTATISCHE ‚3 
MESSER „MESSER „SCHARFE ,3 

MAUER „MAUERN „STEINERNE ‚2 

MAGIE „ZAUBEREIEN,ERDFARBENE ,? 
PEST ,KETTEN,STAEHLERNE ‚2 

WAFFE „WAFFEN , VERBORGENE „2 

HUND „HUNDE „REISSENDE ‚1 

MONUMENT „KUNSTLEHRER ,GERISSENE ‚3 
MALTE,"LIPPE ENTERPRISES" „BERECH 


TIGTE,® 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
2 

DATA 
DATA 
DATA 


ENE", 


DATA 
DATA 
DATA 
DATA 
HE,2 
DATA 
DATA 


MATTHIAS „MONUMENTE „ IRDENE ,® 
STEFAN,EINDRUECKE ‚„GEWALTIGE,® 
DIRK,VISIONEN,FARBLOSE ‚2 

BAUER „BAUERN,WEICHE ‚1 
UEBERMENSCH ,GIGANTEN,KNORRIGE,1 
WAHNSINN „CENTAUREN,STIERKOEPFIGE 


RICHTER ,RICHTER,PULSIERENDE ‚1 
SDNNE „SONNEN „BERSTENDE, 2 
GALAXIS,GALAXIEN, "STRAHLEND SCHO 
2 

WELTENKREIS, FRAGEN, GROESSTE ‚1 
IMPULS, IMPULSE „ROTIERENDE ‚1 
PULSAR ,PULSARE „GRENZENLOSE ‚1 
SUPERNDVA „SUPERNOVAE „UNERMESSLIC 


VAKUUM „FRAGMENTE „ERHEITERTE,S 
KUGELRAUMER „KUGELRAUMER „WAFFENST 


ARRENDE „1 


DATA 
DATA 
DATA 
DATA 
DATA 


ZYKLUS, ZYKLEN , BARBARISCHE „1 
SCHMERZ „SCHMERZEN ,RUHENDE ‚i 
GESCHUETZ ‚GESCHUETZE „RAUCHENDE „3 
WALL ,WAELLE „MENTALE „1 
SCHWERTMEISTER „HERAUSFORDERER,RI 


ESIGE,1 


DATA 
DATA 
DATA 
1 

DATA 
DATA 
3 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ZENE, 


DATA 
DATA 
1 
DATA 
DATA 
DATA 
E,i1 
DATA 
DATA 
DATA 


2 


DATA 
DATA 
DATA 
DATA 
TE,3 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Me: 

DATA 


REVOLTE,REVOLTEN,BEWALTLOSE,2 
KOMET ‚KOMETEN,GEFRORENE ‚1 
METEOR ‚METEORE, "HELL GLUEHENDE", 


GAS ,GASE ‚„BETAEUBENDE ,3 
RAUMSCHIFF „RAUMSCHIFFE,STELLARE, 


STERN,STERNE „DROHENDE ‚1 

MASSE „MASSEN,STARRE,2 

ENERGIE „ENERGIEN,REINE,2 
ZEIT,ZEITEN,VERGLUEHENDE ,? 

RAUM ,RAEUME „ERNEUERTE ‚1 
RAUM-ZEIT,GEFUEHLE,FLIESSENDE ,2 
TRAEGHEIT „OBERFLAECHEN , ZERSCHMOL 
2 

KUGEL „KUGELN,SELTSAME „2 
MONOLITH,MONOLITHEN,KRISTALLINE, 


BUADER „BUADER, INTERSTELLARE,S 
BUASAR „QUASARE „ARCHAISCHE „1 
HERRSCHER „HERRSCHER „FASZINIEREND 


KOSMOS „DAEMFPFE,„HEISSE,1 
UNIVERSUM,KREISE,SILBERNE,3 
JUNGFRAU ,JUNGFRAUEN,„STILISIERTE, 


TROPFEN, TROPFEN , TROPFENDE „1 
MATRIX ,MATRIZEN,KUBISCHE ,2 
KALKUEL ,KALKUELE ,„DOGMATISCHE ,3 
EXPERIMENT „EXPERIMENTE „GRAUENHAF 


HASELNUSS „ HASELNUESSE „ASTRALE,2 
GESANG ‚GESAENGE „MEDITATIVE,1 
DROGE ‚DROGEN ,PSYCHEDELISCHE ‚2 
ANGST ‚AENGSTE „HYSTERISCHE ‚2 
SITAR ,SERAEUSCHE ‚MORBIDE,1 
ERKENNTNIS „ERKENNTNISSE , INDISCHE 


STURM,STÜERME „GDETTLICHE „1 


REM. +++++ VERBEN +++++++++++++++ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BESTAUNT „BESTAUNEN, ® 
ZERFLIESST ‚ZERFLIESSEN,1 
RIESELT,RIESELN,1 
ERSTARRT „ERSTARREN,1 
ZERBRICHT ‚ ZERBRECHEN, 2 
ZERSCHMETTERT „ ZERSCHMETTERN,? 
TRINKT,TRINKEN,S 
SCHLAEFT „SCHLAFEN, 1 
WANDERT „WANDERN, 1 
FLIEGT,FLIEGEN,1 

KAEMPFT „KAEMPFEN,1 


60 Ian 


<188> &B12 DATA 
<B1B> sBß1S DATA 
<187> 6814 DATA 
<250> 6815 DATA 
*1979> sid DATA 
<158> 6217 DATA 
2B88> 6219 DATA 
<249> 628197 DATA 
s&B2B DATA 
<128> 6821 DATA 
<173> Hu2zZ DATA 
<241> 6223 DATA 
<129> o2z4 DATA 
«240> 6825 DATA 
<BB88> &22&6 DATA 
6227 DATA 
“1723 62028 DATA 
x177> 6827 DATA 
<B13> &B32B DATA 
6251 DATA 
<2B2} 8832 DATA 
<182> &a3S DATA 
LIES 254 DATA 
<172> 235 DATA 
oBS56 DATA 
<B56> 8237 DATA 
<113> 6258 DATA 
62937 DATA 
<B76> &242 DATA 
<B2B> 6241 DATA 
<132> 6242 DATA 
L3SF> 245 DATA 
<B99> 6844 DATA 
6845 DATA 
<164> 6246 DATA 
<173> 6847 DATA 
1 TE> 6248 DATA 
60497 DATA 
<173> &B5B DATA 
<147> 6251 DATA 
sa52 DATA 
RIFF OMINEBEE Data 
<218> 6854 DATA 
<246> 6255 DATA 
„168 > 6256 DATA 
<244}> 6857 DATA 
<BIB> 6858 DATA 
<BöB> #059 DATA 
&B&B DATA 
LIST &gsi1 DATA 
<167> &B&b2 DATA 
6863 DATA 
2849} 6864 DATA 
<B897> sB&55 DATA 
<173> &26& DATA 
6867 DATA 
<B72> 6258 DATA 
<2Q53 > 6957 DATA 
21675 s&B72 DATA 
6871 DATA 
<1B7> 6272 DATA 
<Q19> &B7=3 DATA 
<1@1> 6274 DATA 
<B35> 62875 DATA 
6276 DATA 
FI EIN 4077 DATA 
<B57> 6078 DATA 
<145> 6277 DATA 
<B96 > &BBR DATA 
2502 6281 DATA 
<186> sa8E DATA 
62885 DATA 
077? 6884 DATA 
<194> 6885 DATA 
<s152> 28h DATA 
<278> 62987 DATA 
“IB sasB DATA 
«29327 6087 DATA 
< 1113 sa7R DATA 
<B15> 
<xB49> ni 
<173> IEINIEEENR 
<218> 
<B26> 
<BR9> 
244 > 


BEKAEMPFT „BEKAEMPFEN,® 
ZERFAELLT,ZERFALLEN,1 
ZERFRISST „ZERFRESSEN,® 
LACHT ‚LACHEN, 1 
WINKT,WINKEN,1 

FLUCHT „FLUCHEN, 1 
TOETET,TOETEN,2 
ENTFLAMMT „ENTFLAMMEN, 1 
STOLPERT,STOLPERN,1 
KREISCHT „KREISCHEN, 1 
KNURRT „KNURREN, 1 
VERWEHT „VERWEHEN,1 
BEWEGT „BEWEGEN, ® 
DURCHBOHRT „DURCHBOHREN, 
SCHREIT,SCHREIEN,1 
ERDULDET „ERDULDEN,® 
FLUECHTET „FLUECHTEN, 1 
ERSCHLAEGT „ERSCHLAGEN,2 
VERGEHT „VERGEHEN, 1 
KREIST,KREISEN,i 

SLUEHT „GLUEHEN,i 
SCHWERT ‚SCHWEBEN, 1 
STEIGT,STEIGEN,1i 
SCHWANKT „SCHWANKEN, 1 
SINKT,SINKEN,1 

BEKLAGT ‚BEKLAGEN, @ 
STUERZT,STUERZEN,1 
VERLIERT,VERLIEREN,2 
BEERDIGT,BEERDIGEN,® 
VERWUNDERT „ VERWUNDERN ,2 
FORDERT „FORDERN, 2 
BEZWINGT „BEZWINGEN,@ 
FUEHRT „FUEHREN, 2 
ZWEIFELT,ZWEIFELN,1 
BEGEHRT ‚BEGEHREN,® 
VERWANDELT „VERWANDELN, 
ERSCHAFFT „ERSCHAFFEN, 
TEILT,TEILEN,®@ 
VERMODERT „VERMODERN, 1 
VERSINKT „VERSINKEN,i 
BESCHWOERT „BESCHWOEREN, ® 
FUNKELT,FUNKELN,1 
DUFTET,DUFTEN,1 
GEFRIERT,GEFRIEREN,1 
ERFRIERT ,ERFRIEREN,i 
VERLAESST „VERLASSEN, ®@ 
ZERSPLITTERT,ZERSPLITTERN,i 
ZERSTICHT , ZERSTECHEN,@ 
ZERREISST ,ZERREISSEN,® 
VERBRENNT ‚VERBRENNEN, 2 
DPFERT „OPFERN,2 
ZERFETZT,ZERFETZEN,® 
FRAHLT ,PRAHLEN,1 
BEENDET ‚BEENDEN,® 
ERLANGT „ERLANGEN,® 
ERBLICKT,ERBLICKEN,® 
VERFOLGT ‚VERFOLGEN, 
SEUFZT,SEUFZEN,1 

SPUERT „SPUEREN,® 
VERMEIDET ‚VERMEIDEN,@ 
SINGT,SINGEN,i 

BESINGT ,BESINGEN,® 
BEWEINT,BEWEINEN,® 
VERGISST ,„ VERGESSEN, 3 
BERUEHRT „BERUEHREN, ® 
ERKLINGT ,ERKLINGEN,1 
VERGLUEHT „VERGLUEHEN,1 
LERBT,LEBEN,1 

SUCHT „SUCHEN, 
VERKUENDET „VERKUENDEN, ® 
ERWACHT „ERWACHEN, 1 
GLAENZT ,GLAENZEN,1 
HUETET ,HUETEN,@ 
BETRACHTET „BETRACHTEN, ® 
LAECHELT,LAECHELN,1 
ROTIERT,ROTIEREN,1 
DURCHWANDERT ,DURCHWANDERN, 
SCHIMMERT „SCHIMMERN, 1 
ANTWORTET „ANTWORTEN, 1 


Listing zu Lyric 3.0 (Schluß) 
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<136> 
1727 
<152> 
<198> 
<118> 
<B95> 
<Bi1> 
<138> 
<147> 
<B52F 
<241> 
“127 
pr 
<054 > 
<@21> 
<8@21> 
1350? 
<BS1> 
zrr1> 
<181> 
<2B47> 
<124> 
<BA3> 
<244}> 
2978> 
<226> 
<927> 
<119> 
<249> 
<B?28> 
<245> 
<Bö6il > 
178> 
RLFLF 
©1312 
<9253> 
<167> 
1773 
<158> 
<12B> 
<B4B8> 
<Q45> 
<a51> 
ER 
<B35S?> 


<189> 


<B&42> 
<157> 
<2B58> 
<136> 
<12B97> 
<B65> 
<174> 
<B34> 
<153> 
<1853> 
<1987> 
<2ß41> 
<281 > 
<0I36> 
<B5FP > 
<148> 
ZIiNS> 
066 > 
<2Q4 > 
<109> 
<277> 
<226>? 
«215> 
189: 
<113> 
»126> 
22795 
“1823 


TEE 


PPr2> 
062 > 
961 > 
37% 


2242> 








Hypra-Platos 


Endlich Schluß mit der elenden Klebe- 
rei von Platinen-Layouts. Mit diesem 
Programm spart man Geld, Zeit und 
Nerven. 


Das Platinen-Layout-System besteht aus drei Programmtei- 
len. Dem Hauptprogramm »O. PRG« (Listing 1), »1. PRG« (Li- 
sting 2) und dem Druckertreiber »2. PRG« (Listing 3). Sind alle 
drei Programme abgetippt und befinden sie sich auf Ihrer Dis- 
kette, kann das Hauptprogramm mit LOAD”O. PRG”,8 geladen 
und mit RUN gestartet werden. 

Nach einigen Sekunden erscheint ein Titelbild und anschlie- 
Bend das Hauptmenü auf dem Bildschirm. Von hier können 
acht Untermenüs beziehungsweise Unterprogramme aufge- 
rufen werden. Die einzelnen Punkte dieses und allen folgen- 
den Menüs können mit der RESTORE-Taste verlassen werden. 
1. Bauteileliste: 

Die einzelnen Bauteileformen werden hier definiert und ver- 
waltet. Diese Bauteildefinitionen werden für die Elementeliste 
benötigt. 

2. Elementeliste: 

Die Elementeliste enthält alle Elemente, die in der Schaltung 
vorkommen. Hier müssen die Elemente definiert werden, be- 
vor die Verbindungsliste erstellt wird. 

3. Verbindungsliste: 

Hier werden die Verbindungen angegeben, die der Router 
später routen soll. 

4. Bauteile plazieren: | 

Neben dem Plazieren der Elemente, wird von hier auch der 
Manuell-Router aufgerufen. 

5. Routen: 

Der Router verlegt automatisch die Verbindungen, die in der 
Verbindungsliste angegeben wurden. Bevor diese Routine 
aufgerufen wird, müssen alle Bauteile plaziert sein. 

6. Sortieren: 

Hier werden die Verbindungen vor dem Routen der Länge 
nach sortiert. Das erspart dem Router viel Arbeit. Dadurch wird 
die Rechenzeit geringer. 

7. Optimieren: 

Verbindungsketten, wie Masse- oder Plusschienen werden 
optimiert. 
8. Features: 

Disketten- und Druckerverwaltung. 
0. Ende: 

Rücksprung zum Basic mit Sicherheitsabfrage. 
Zur Bauteileliste 

In der Bauteileliste wird die Bauteilbibliothek verwaltet. Hier 
werden die Informationen über die Lage der Pins und die Grö- 
Be des Gehäuses gespeichert. Wichtig ist im Untermenü »Ein- 
tragen«, daß sich alle Pinangaben auf den Pin 1 beziehen. Da- 
bei muß der Pin 1 in der linken oberen Ecke positioniert wer- 
den. Jedem definierten Bauteil wird eine sogenannte Organi- 
sationsnummer zugeordnet, die bauteilunabhängig ist und nur 
durch die Reihenfolge der Eingabe bestimmt wird. Um zum 
Beispiel ein 14poliges IC in die Bauteileliste einzutragen, ist 
wie folgt vorzugehen: 

1. Vom Hauptmenü aus das Menü Bauteileliste anwählen. 
2. Vom Untermenü Bauteileliste den Punkt 3 Eintragen anwäh- 
len. 

Auf dem Bildschirm erscheint die Abfrage nach dem Bauteil- 
typ. Die 7 Buchstaben stellen jeweils den Anfangsbuchstaben 
des Bauteiltyps dar. 
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|=IC,T = Transistor, S = Steckerleiste oder Schalter, K = 
Kondensator, W = Widerstand, X = Joker für beliebige ande- 
re Bauteiltypen, E = Ende 
3.1 für IC eingeben. 

4. Für die Anzahl der Pins 14 eingeben. 

5. Da Hypra-Platos mit einer Auflösung von ho Zoll arbeitet, 
muß die Länge und die Breite des Gehäuses mit 2 multipliziert 
werden. Von dieser Zahl ist 2 abzuziehen. In unserem Fall ent- 
spricht das 2*7-2=12 für die x-Ausdehnung. 

6. Entsprechend gilt für die y„-Ausdehnung 2*4-2=6. 

7. x-Position von Pin 1 eingeben. Hier O 

8. y-Position von Pin 1 eingeben. Hier ebenfalls O 

9. Geben Sie folgende Zahlengruppen ein, jeweils für die x- 
und y-Position der Pins 2 bis 14: 2, O0; 4, 0; 6, 0; 8, 0; 10, O; 
12:0 2 & 10,68, 86; 64, 82,6; 0, 0: 

10. Jetzt können Sie entweder ein weiteres Bauteil definieren 
oder zurück ins Menü Bauteileliste springen. 

Die anderen Menüpunkte dienen dazu, die Bauteileliste zu 
verwalten: 

1. Listen: 

Alle Bauteile werden nach dem Schema »Bauteiltyp Pinan- 
zahl = Organisationsnummer« geLlISTet. Zum BeispielT3=2 
2. Löschen: 

Um ein Bauteil zu löschen, ist die Organisationsnummer an- 
zugeben. Zum Beispiel 2 für T (Transistor) 

3. Eintragen: 

Bauteile definieren. 
4. Speichern: 

Zum Abspeichern der Bauteileliste muß eine Listennummer 
»n« angegeben werden. Es wird ein File mit dem Namen »n. 
Baut« erzeugt. »n« ist dabei die Listennummer und muß zwi- 
schen O und 9 liegen. 


sen Onıgmeeen: 


Zum Laden der Bauteileliste ist die Listennummer einzuge- 
ben. 
6. Drucken: 

Entspricht dem Punkt 1 (Listen), aber auf dem Drucker. 


7. Zeigen: 

Die Pins des Bauteils mit der Organisationsnummer »n« wer- 
den auf dem Bildschirm ERRSSIEN: Pini1=AbisPin26=Z 
Zur Elementeliste 

Die Elementeliste enthält alle Elemente, die sich in der 
Schaltung beziehungsweise auf der Platine befinden. Alle Ele- 
mente müssen zuvor in der Bauteileliste definiert sein. Der 
wichtigste Punkt in diesem Untermenü ist der Punkt 4 »Einge- 
ben«. Wir wollen nun unser zuvor definiertes 14poliges IC in 
die Elementeliste eintragen. Dazu ist folgendermaßen vorzu- 
gehen: 

1. Punkt 4 »Eingeben« im Untermenü Elementeliste anwählen. 

2. Bauteiltyp eingeben (T,1,5S,KW,X). Hier I 

3. Bauteilnummer eingeben. (1 bis 255) Hier 1 

4. Die Taste RETURN drücken. 

5. Die Organisationsnummer angeben. Hier ebenfalls 1 
Damit ist das Element I1 in der Elementeliste eingetragen. 


Um ein zweites Element, ebenfalls ein 14poliges IC, unter dem 


Namen I2 einzutragen, müssen Sie: 
1. Bauteiltyp eingeben. Hier 1 
2. Bauteilnummer eingeben. Hier 2 
3. Die Taste RETURN drücken. 
4. Die Organisationsnummer angeben. Hier wieder 1 

Geben Sie jetzt »E« für Ende ein, befinden Sie sich wieder 
im Untermenü Elementeliste. 

Die restlichen Menüpunkte dienen dazu, die Elementeliste 
zu verwalten: 
1. Speichern: 

Die Elementeliste wird gespeichert. Es ist wieder eine Li- 
stennummer anzugeben. 
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2. Laden: 

Die Elementeliste mit der Listennummer »n« wird geladen. 
3. Drucken: 

Entspricht Punkt 1 (Listen), aber auf dem Drucker. 

4. Eingeben: 

Hier werden die Elemente eingegeben, die später auf der 
Platine plaziert werden. 

Das Format st: Bauteiltyp (T,1,S,K,W,X), Bauteilnummer (1 bis 
255), Organisationsnummer aus der Bauteileliste. Wenn eine 
Organisationsnummer nicht existiert, erfolgt eine Fehlermel- 
dung. Existiert das Element schon, so wird das alte Element 
überschrieben. Wird für die Organisationsnummer eine »0« 
eingegeben, wird das Element ersatzlos gelöscht. In das Un- 
termenü Elementeliste kommt man mit der Taste »E« für Ende. 
5. Listen: 

Die Elemente werden in dem Format der Eingabe geLISTet 
(Bauteiltyp, Bauteilnummer, Organisationsnummer). 

Alle Elemente, die später in der Verbindungsliste benötigt 
werden, müssen jetzt definiert sein. 


Zur Verbindungsliste 

Die in der Elementeliste eingegebenen‘ Elemente müssen 
verbunden werden, um den Auto-Router aufrufen zu können. 
Wir wollen jetzt als Beispiel alle Punkte der zuvor definierten 
zwei Elemente (11,12) miteinander verbinden. Dazu gehen Sie 
wie folgt vor: 

1. Menüpunkt 4 »Eingeben« im Untermenü Verbindungsliste 
anwählen. 

2. Bauteiltyp eingeben. Hier I 

3. Bauteilnummer eingeben. Hier 1 

4. Taste RETURN drücken. 

5. Pinnummer eingeben, von dem aus verbunden werden soll. 
Hier 1 

6. Taste RETURN drücken. 
7. Bauteiltyp eingeben, zu dem verbunden werden soll. Hier | 
8. Entsprechende Bauteilenummer eingeben. Hier 2 

9. Taste RETURN drücken. 

10. Entsprechende Pinnummer eingeben. Hier 1 

11. Taste RETURN drücken. 

12. Taste »E« für Eintragen drücken, beziehungsweise »L« für 
Löschen. 

Auf dem Bildschirm sollte jetzt folgende Zeile zu sehen sein: 
>11 ,PIN1 =12 ‚PIN 1 (UE)? 

Wiederholen Sie die Punkte 1 bis 12 so lange, bis Sie alle 
IC-Beinchen miteinander verbunden haben. 

Haben Sie bei einem Eintrag etwas Falsches eingegeben, 
brauchen Sie nicht zu verzweifeln. Drücken Sie, wenn. das 
»Größer-Zeichen« erscheint die Taste »E« für Ende. Sie befin- 
den sich wieder im Untermenü Verbindungsliste und können 
im Punkt 5 »Editieren« die soeben erstellte Verbindungsliste 
ändern. Mit der Taste »F1« und »F2« kann vor- und zurückge- 
blättert werden, mit »D« kommt man in den Eingabemodus und 
»M« steht für manipulieren. Wichtig ist, daß die zu ändernde 
Zeile komplett neu eingegeben wird. 

Alle weiteren Unterpunkte des Untermenüs Verbindunggslii- 
ste dienen dazu, die Verbindungsliste zu verwalten: 


1. Speichern: 


Dazu muß analog zur Elementeliste eine Listennummer an- 


gegeben werden. 
2. Laden: 
Eine Verbindungsliste mit der Nummer »n« wird geladen. 
3. Drucken: 
Die Verbindungsliste wird gedruckt. 
4. Eingeben: 
Die Verbindungsliste kann erstellt werden. 
5. Editieren: 
Verbindungsliste kann geändert werden. 
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6. Listen: 

Alle Verbindungen erscheinen in Form der Eingabe auf dem 
Bildschirm. 

Zum Bauteile plazieren 

In diesem Untermenü können nicht nur Bauteile plaziert wer- 
den, sondern von hier läßt sich auch der »manuelle Router« 
aufrufen. 

Die Untermenüpunkte im einzelnen: 

1. Bauteile plazieren: 

Wird dieser Punkt angewählt, befindet man sich in einem 
bildschirmorientierten Editor, wie ihn viele Textverarbeitungs- 
programme auch haben. Die unteren drei Bildschirm-Zeilen 
dienen als Informations-Zeilen. Hier sind die momentane 
Cursor-Position, die Drehung des aktuellen Bauteils und die 
möglichen Befehls-Tasten aufgeführt. Um ein Bauteil zu plazie- 
ren, muß zuerst das Element in der Form Bauteiltyp, Bauteil- 
nummer eingegeben werden. Zum Beispiel »I1« oder »I2«. Ein 
blinkender Cursor macht jetzt darauf aufmerksam, daß Sie das 
angewählte Bauteil plazieren können. Mit den Cursor- 
Steuertasten kann der Bildschirm, von dem immer nur ein Aus- 


‚schnitt zu sehen ist, in alle vier Richtungen gescrollt werden. 


Beim (T)esten erscheinen die Pins auf dem Bildschirm. Wird 
die Taste »D« gedrückt, wird das Bauteil immer um 90 Grad im 
Uhrzeigersinn gedreht. Nach (S)etzen wird das Bauteil auf der 
Platine plaziert. Mit (V)erschieben läßt sich ein schon plazier- 
tes Bauteil auf der Platine verschieben. Der Cursor muß je- 
doch auf dem Pin 1 stehen. Mit (E)nde kommt man wieder zu- 
rück ins Untermenü »Bauteil plazieren«. 
2. Listen: 

Plazierte beziehungsweise nicht plazierte Bauteile werden 
geLISTet. 
3. Löschen: 


SsaeR onunalr Bauteile können gelöscht werden. Dazu ist der 


eiiyp und die Bauteilnummer einzugeben. Zum Beispiel 
11 oder I2. 
4. Verbinden: 

Um mit dem Auto-Router arbeiten zu können, muß die Ver- 
bindungsliste in eine für den Router verständliche Form umge- 
wandelt werden. Diese Routine ist vor jedem neuen Routvor- 
gang aufzurufen. 

5. Manual Router: 

Hier kann die Platine manipuliert werden, nachdem der Rou- 
ter die Verbindungen gezogen hat. Wird dieser Punkt ange- 
wählt, befindet man sich wieder in einem bildschirmorientier- 
ten Editor, der genauso aufgebaut ist, wie der Editor zum Pla- 
zieren der Bauteile. Mit der Taste »F1« kann die aktuelle Plati- 
nenseite umgeschaltet werden. 

6. Pin 1 listen: 

Die Koordinaten eines plazierten Elements werden angege- 
ben. Dazu ist der Bauteiltyp und die Bauteilnummer einzuge- 
ben. Zum Beispiel 11 oder 12. 

7. Alles löschen: 

Alle drei Listen und die Platine werden gelöscht. 

8. Bahnen löschen: 


Die Leiterbahnen der aktuellen Platinenseite werden ge- 


löscht. Soll der Auto-Router noch einmal aufgerufen werden, 
ist vorher der Punkt 4 (Verbinden) anzuwählen. 
9. Seiten tauschen: 

Die beiden Platinenseiten werden vertauscht. 
Zum Routen 

Die Leiterbahnen auf der aktuellen Platinenseite werden au- 
tomatisch verlegt. Sollten Fehlverbindungen auftreten, kann, 
nachdem die aktuelle Platinenseite umgeschaltet wurde, 
nochmals geroutet werden. 
Zum Sortieren 

Die Verbindungen werden der Länge nach sortiert. 
Zum Optimieren 

Verbindungsketten werden optimiert. 
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Zum Menü »Features« 

Dieses Untermenü dient in erster Linie zur Drucker- und Dis- 
kettenverwaltung: 
1. Layout: 

Der Druckertreiber wird geladen. Dazu muß sich die Diskette 
mit dem Programm »2. PRG« im Laufwerk befinden. 
2. DOS: 

Disketten-Befehle werden gesendet. Mit »$« kann das Di- 
rectory geladen und betrachtet werden. 
3. Matrix OP: 

Die aktuelle Platinenseite wird gespeichert oder geladen. Zu 
beachten ist, daß jeweils nur ein Matrix-File pro Diskettenseite 
gespeichert werden kann. 

4. Fehlverbindungen: 

Die Verbindungen, die der Router nicht gefunden hat, wer- 
den in Koordinatendarstellung ausgegeben. 
Zum Druckertreiber 

Dieser Programmteil, der im Untermenü »Features« mit 
Punkt 1 nachgeladen wird, kann beide Platinenseiten, entwe- 


programm : B. prg gsi 3069 QgaQ9? : 56 Sa ca 
7 Zu en 15.1 1 Ha 17T TREE Sr ERFEETRTET Bali : 16 dc 97 
B881 : Be 88 ca a8 9e 32 39 36 84 Bai9 : AU e3 ?f 
8807 : 35 298 44 43 43 O0 BO 2BB 7d Ba21 : ci d?7 13 
as1i : ad BR b9 49 B7 99 BO cd 26 QBa29 : 9 a4 bB 
88197 : b9 69 88 77 BB ce b9 69 ec QBa35l : 2d Ze 73 
8821 : 89 99 BB c# cB dB eb A4c A4c BaS39 : 22 24 264 
0829 =: c2 cd 78 aQB ff 84 fb 39 &b Ba41l : bös bd ch 
8831 = c& 85 fc a9 36 85 81 8d dd Ba47 : af b4 ba 
0839 : 298 dß c8 a5 2d dB B2 ch 97 Ba51 : 5d 62 74 
2841 : Ze cöh 2d a6 Ze eß Ba dd ab Qa57 : de e2 27 
08849 : 984 c9F 64 fD Bf bi 2d 91 bFf Basil : be 93 9a 
8851 : fb a5 fb d® 22 ch fc cöh 18 Ba697 : ce ca eb 
08597 : fb Ac d3 cd a2 88 a9 Bl 3c Ba71 : ba Sb c#- 
0851 : B&b Ze 85 2d 84 ff 298 58 %4#f Ba797 : bh e3 353 
8869 : ce c9 fS3S dB 27 28 58 ce 85 BaBl : la 9b Ja 
8871 : aa 84 fa c9 B4 bB 84 a9 7f Ba87 : fö = e2 
08379 : f3 da 83 28 58 ce ad Bü 97 BaFl1 : dc 72 
0881 : 91 2d cB c6 fa da f9 98 8S 2399 : Scala: 
0889 : 18 45 2d 85 2d 98 O2 eö& 7d Baal : 13 eb 

2891 : Ze 4c 34 ce aß DB 91 2d 77 Baa9 : bd Sf 12 
8899 : e& 2d fB f3 39 91 a2 35 ec Babi : 81 ad ef 
BBal : e4 Ze dB c2 c5 2d dd be af Bab9 : ac ba 5d 
2837 : a9 37 85 Bl 397 fe Bd 28 78 Baci : ca 84 b4 
B8b1 : da 58 28 59 a4 Ac ae a7 b7 Bac9 : e4 97 8b 
B8b? : a2 ff 86 f7 86 fB8 e8 a9 22 Badi : 2b 4a 42 
BBeci : BI 85 fe a9 7 85 fd ch 25 Bad? : 2a cQA 59 
Q8c7 : ff 18 1B ed fb da 22 ed cd QBael : 64 4a b2 
B8di : fc a9 97 85 ff ad BR bi 7d QBae9 : e7 2d 3b 
0849 : fb 85 f9 B&4 ff? ba Ba a4 4d Bafi =: 2d b5 92 
BBel : fe a5 fd 39 #7 BB 97 f7 Ze Baf? : Ba cQ da 
0B8e7 : 98 Ba Ba a8 a5 f7 38 ff? 5 BbB1i =: 1& Gc a4 
BBfl1 : e2 ce a5 f8B fI e35 ce 9% de 2b07 : b4 22 fi 
e8f? : Be eB Ad fQ Ba eB 38 46 Ge 1 5 u 174 
0781 =: fd bRB cA ch fe fB bc Ba eBß Bb19 : d2 85 2d 
08909 : fo of a5 f7 38 f? ed ce 5e 2b21 : BZ 2b 2a 
B711 =: 85 #7 a5 fB f9 ei ce 85 Bf 2b29 : 2d 88 b4 
8919 : f8 a4 fe fB 97 a5 f8 85 ce 2b31 : Ad bc e5 
89721 : #7 88 84 f8 a5 fd Aa 9% 31 2b37? : 42 ae 58 
092979 : 97 44 #9 56 f7 4c be ce d? 2b41 : 297 2b 42 
08931 =: bd d2 ce #5 f7 a8 b9 BB 63 2b49 : b5 94 75 
2939 : cf &B DB DD DD ve Qa2 28 51 2Bb51 : Bb 4a 85 
20941 =: 14 2a Ad 8c b9 df f4 #9 b2 0b59 : 45 e8 56 
09749 : fb fb UO 92 un BB Da mn 42 2b&s1 : aa 2d Ia 
2951 : BB 28 BR Sp BB 88 BB ac cc? 2b&7 : 1a eS al 
09759 : 808 cf BB ee cQ f9 88 fe ib Bb71 : d& #9 dd 
2981 : da ff FB ff DB BB BR BDO Hbf 0b79 : 27 2d 26 
0969 : 20 87 a9 BB aß Bd Ac dB BR Eb81 : c& de 4a 
897971 : 18 ad 45 fa a5 85 c9 Ba d2 2b87 : 12 7d d? 
09779 : QB1 40 47 ab bi ie 4e fO al Bb971 : #7 7b Je 
BFB1 : BI e5 ff a2 fb 54 49 d2 #8 2b97 : 34 Ba 12 
0989 : 8 979 52 B& Bd 44 38 91 be Ebail : 65 27 Ba 
2991 : 48 B2 Sd a8 44 aa 29 41 ff 2ba? : ca 4a d? 
8979 2:33 #8: cd: c8 su 55 78 2b 9%# Bbb1 : 56 52 56 
B9a1l : 3B dd 88 17 fS Se 72 85 72 Bbb? : 2d Ba ca 
2939 : 4 d4 fi 14 45 Ba bO 984 d7 Bhci =: da 55 72 
B7b1 : Sa 75 f7 10 43 97 33 a6 cI Bbc? : ae 28 59 
Q09b7 =: 42 68 ac 58 e9 ae db d9 897 Obdi : &c bi 43 
8@9c1 = b9 d5 7b 99 15 64 Sb 98 4b 2bd? : da e9 56 
99c9 : 89 32 ed fc 3c 47 1d eB 79 bei : 697 B3 ce 
B9di1 =: e8 de 9d a7 235 28 bb 7c 67 Über? : Bi 68 987 
097d9 =: ed Bc 11 19 31 35 Ad 63 ed Ebhfi : 95 2a 12 
B9el : Be d3S fd bf 84 88 Ic 34 4Ac Bbf? : b7 Sa 78 
B9e9 : 379 4b 59 71 77 7Te 8c ee cäE OcBi1 : ba 92 cQ 
B97f1 : Sf 57 b7 e7 1b 356 3a da e8 BcB? =: dd 69 ci 
B87f9 : di dB 57 7a 7d 81 84 57 18 Bcii : f& Ab Bi 
Bali =: 7f db e4 fe Be la if 46 41 ”c19 : 564 9c bB 


der auf einem FX-80 (und kompatible) oder einem VC 1526, 
MPS 802, ausdrucken. Dazu erscheint auf dem Bildschirm ei- 
ne Druckermaske. Alle Parameter können wie folgt eingestellt 
werden: 

Drucker: F/V — Auswahl des Druckers FX-80 oder VC 1526 


Größe : 1/2 — Ist nur beim VC 1526 ansprechbar. Es wird das 
Verhältnis, mit dem gedruckt wird, festgelegt (1:1 oder 2:1). 
Beim FX-80 wird immer im Verhältnis 2:1 gedruckt. 

Seite: 1/2 — Legtfest, welche Platinenseite ausgedruckt wird. 
Modus : R/S — definiert, ob die Platinenseite richtig (R) oder 
spiegelverkehrt (S) gedruckt wird. 

D-Kanal: (0 bis 9) Nur bei Betrieb eines FX-80. Entspricht Se- 
kundäradresse zum Senden von Daten (interfacespezifisch). 
B-Kanal: (0 bis 9) Identisch mit D-Kanal; nur wird hier ein Be- 
fehlskanal zur Verfügung gestellt. 

Der Druckvorgang kann mit der RUN/STOP-Taste unterbro- 
chen werden. Nachdem eine Platinenseite gedruckt wurde, 
erfolgt die Abfrage, ob weiter gedruckt oder in das Hauptpro- 
gramm zurückgesprungen werden soll. (Eckhard Krabel/ah) 


dc df ei Bf Ba Bc21 : 29 Ob 907 64 ab 4a 85 bb af 
es ce 382, 75 2c27 : bi d® ac le da d5 18 b4 30 
Ye ea f2 12 98 2c31 ; e2 d® 89 34 34 52 54 Ba eB 
aa 82 87 97 c5 08c37 : e9 d& eb 67 74 9& 84 5f 42 
5b 95 cb ef 94 Bc41 : 77 2a 54 28 2e f9 if B2 1a 
b3 bf eb f7 9e 8c49 : d& id 92 d® Bd 27 dd 9c 27 
78a 79 94 a3 ef @c5i : b2 BB bA BIS a7 #7 547 2c ci 
3b 51 51 al 4d 0c59 : 88 2# 165 bQ 32 91 4535 e7 1a 
ec f4 f&4 2b 82 Bc&i : ca 5a 72 d® 8b b2 ac B4 18 
be c3 ca cf 988 0c&9 : 4a b2 92 b4 22 e7 eb Bi 5b 
5f b2 b5 bb 91 Bc71 = 18 4b: 59 67 54 Sa 11 7a cS 
bc #9 b3S de ef 8c7? : 15 81 e7 2d 3b 45 2a 15 Bf 
e2 94 a5 27 cä Bc81 : 72 da 5b 75 58 13 96 93 8c 
f5 eZ Sa 4a 76 0c89 : 6f Sa 11 43 49 59 7d 9e 55 
f8 9 54 Be dd 8c91 : Be 94 55 f4 FO ae 9c b5 c8 
13 a6 if 8b db 0c997 : 4b 78 5b 48 ef Ba 17 4D Z2f 
14 Be 47 &B H#a ”Bcai : 5a Bi ai bi b7 92 b4 a4 46 
5o f5 32 c3 eB Bca9 : 97 78 85 aß ib e9 354 üb 32 

94 #6 Bcbi : 59 49 @ad 5 75 84 eS aa 17 
FU IF RL IE: Bcb? : B& fa ca ci 69 21 be f3 aa 
Sc 9a 95 34 B6& Beciı ae. 169.16: ei acı2r 37. Ta 
59 bf 89 32 4b @cc9 : 2c 85 be fc a8 5b eb cd dd 
26 52 2c 64 Se Bcdi : 28 4e c2 b7 92 b4 eB db d2 
58 f4 fB ad cb BcdF : 2d 65 24 ch 74 95 a4 94 ch 
ia 1b 1b 79 41 @cei : Sc e5 a7 548 65 42 ae b7 97 
57 49 58 bb Bf Bce? : 85 b& b2 f3 56 a8 85 a7 84 
71 d& 85 25 49 Bcfi : 14 2c a4 d8ß e5 2c BB fS 87 
b1:-735:.f5.81 .fb BOcf? : 56 a8 85 a7 14 Se fb 86 16 
2a: 1% ZIxbe 397 BdBl =: c& de 48 7d ec ec Ze Se #63 
59 49 58 bd ff Bd87 : 50 7d ec ec 28 58 ae b8 22 
db c9 Ja 32 cd @d11 : bb 2c ff 43 8d dd fB8 14 Ile 
#7 #2 9& 9c Ic @d19 : ba 298 89 56 52 56 84 18 1b 
02 7& 15 bc 62 Bd21 = ad f8 fc 75 a7 987 78 Je '89 
ac &b 2c 29 da 0427 : 2d 48 2c 85 b8 eb 42 92 5b 
68 45 fQD 2b db Bds1 =: 5d 95 #48 79 cb 4e dB ca 38 
ae 3c a5 a7 71 Bd37 = 85 b& b7 85 b& 2 16 bB 55 
23 cd 5a ch 92 Dd41 : 11 63 dS c2 b7 92 5d 95 822 
8b 75 58 Eb c7 0449 : &0 57 986 19 59 17 cd ac 853 
Sa cQ 44 ab 94 @d51 =: Bb 14 21 Sb 28 46 12 db 46 
ca ba 11 84 dö ud59 =: 59 d5 16 84 5a 55 81 al Ad 
ai 17 3 58 dß Bdöi : bi a9 89 68 48 Sc 25 ac Bd 
75 Be dY9 68 ab 0d6&97 : b3S aa 2d BB bc 5a cQ b2 c5 
9 52 d2 b3 #7 2d71 : ca 5a 56 75 45 a7 42 Ze a4 
78 d5 88 8b a2 0479 =: ca b@ 11 43 5c b4 22 e7 18 
bb ac Qa e9 de Bd8l =: eb B2 ba 75 be 77 49 58 &8 
ai 16 ea bB I58 0487 : 45 8b 14 21 58 f3 9% 9%d 8 
74 22 864 864 ic 0d91 : ai 95 Ba ba de 164 dY 48 ae 
91 27 a7 94 bd 3499 =: 41 d2 c2 Id 39 be 94 92 26 
ed 77 bb d2 cc Bdal : 86 864 ch de 4a d2 98 10 95 
93 dd 58 5b bb oda9 : a5 67 54 92 19 48 bi f3 ec 
58 c2 b2 95 dS Bdbi : e5 2d Ja 49 74 9 78 32 Hbf 
42 56 71 42 &c BdbY9 =: a7 dd 82 ba 55 97 49 597 17 
25 a7 21 69 bi Bdci : 32 56 85 e6 ad 51 Gb de 5b 
74 bO ai 57 cd Bdc9 : Bb ec 1f ad 56 37 ed cB 74 
4e 14 e2 87 97 Bddi : f1 IS6 81 fa 5f 358 15 di Db 
ac a4 d8 c?2 c6 Bdd? : 598 Se c2 da ic 44 56 4f 88 
42 b2 93 2b &c Bdei : dS Fd ad Sc dB 88 ac df 329 
54 2b 28 ba ci “de? : dö ea HB 51 Sf 55 c5 24 685 
Ze 88 16 88 Z2d Bdfi 2 fB8 fd 43 78 al 99 cb 23 24 
84 19 52 ai 75 Qdf? : 91 ef 2b 48 be 49 Sf 9% bf 
sc ec 28 41 Db8 Beßi : 3a 92 14 35 51 a6 c4 47 : on 
88 597 B3 cd 5d QBeB9 : a7 e2 87 be 35 87 e2 87 fb 
9% 29 62b5 33 Beii : 11 ie 9 8b eb cB 29 28 85 
B1 dS Bf 354 da Beil? : B4 bB c4 b8B 537 Ba 190 5f 88 
5a a5 Ba ds 8d Be?i : Bb fc 48 72 11 f1 72 2b ch 
07 69 &9 52 0B8 Be27 : bB ac 83 7d ff? 853 cd b7 22 
&c ud e4 ad 18 Be3si1 : 5a 798 57 Aa 9c ba 74 9c &d 


Listing 1. Das Hauptprogramm von »Hypra-Platos«. Bitte mit dem MSE eingeben. 


Ausgabe 11/November 1985 


64er-online.de 
64er-online.net 


Be397 : 29 dd 3b 
Be41 : 54 5a c8 
Be49 : 94 808 ef 
Be51 : ai bi b7 
BeS59 : 59 d5 24 
Bedsi : 15 72 d® 
Be69 : f2 56 94 
Be71 : ac b3 aa 
Be7? : e4 ad 297 
BeBil : a7 85 Sc 
Be87 : 87 78 52 
Be?1 : 48 ib e4 
Be?7 : SQ ab 9 
Beail : a5 a) 67 
Bea? : 974 37 d? 
Zebi : 2d Sa 4a 
BebY : Sa a4 908 
Beci =: 597 d2 565 
Bec? : a5 21 &2 
dBedi : 4b 4e 92 
Bed? : ad 27 Gb 
Beeil : Sa a4 98 
Bee7 : 69 d2 56 
defi : a5 21 BD 
gef? : 34 f2 I6 
ure1 =: a4 98 ca 
Bf? =: d2 4b 48 
uefiil =: 94 8B db 
af1?7 : aa 49 2 
of21 = 25 45 41 
8f29 : a2 dß 8a 
af31 = 74 c2 b® 
839 : Se 25 4e 
Bf41 = 94 8b 19 
9f497 : 5b e9 el 
BfS1 = f4 697 71 
af57 = d3 af b3 
Bf&1 = #4 c1 4f 
Br67 » 59 17 dY 
Qf71 = 24 2c &1 
af77 : 24 ei 85 
ufs1 : BB b5 d2 
Bf89 : a7 51 4d 
BfY9i : da b7 9d 
u0f977 : 81 dc ee 
Bfai : d2 7d 853 
“ra? =: 67 71 82 
Bfbi : 12 al B6 
ufbY : a5 2d al 
Bfci : ac a4 #9 
@fc? =: 88 Ic db 
efdiı = 77 4a 48 
BfdY9 » 48 52 ba 
Bfeil : 9a 7a 88 
ufe9 : 41 7e I3d 
off1 = 27 e8 33 
eff? : Sd 40 de 
1881 =: 25 c7 ei 
1297 : 7e b3S Sc 
3811 =: 72: Ia Be 
1819 » 30 Af dd 
1021 = 43 b7 1a 
19329 : &b c? 4 
1851 2 91 15 Mm 
1937 =: Ba aß 37 
1841 = 2b fi1 fD 
1849 : ef cc fBQ 
12351 : 58 ib 8a 
1ua57 : fa 977 78 
1981 : 16 52 96 
19049 =: 9c id 92 
1271 = b& cb 58 
1079 : 2d 5d 2a 
1881 : bd dd 48 
18897 : 17 8d 58 
10891 = 45 ee eb 
1099 : 22 55 94 
iBal =: ic 7b 18 
1937 : Sa f2 56 
1Bb1 =: #5 a5 dd 
18b9 : 71 ec 44 
1@c1 =: a2 f4 2b 
10c9 : e5 a7 648 
12d1 =: b& 5a 11 
1Bd7 =: 85 35f ce 
iBdel =: 47 19 #& 
1Be9 : &c 42 Sc 
iufi : Se B4 b8B 
iuaf? : Bd c2 9% 
1181 =: 85 #5 23 
1197 =: 3d 453 72 
1111 = 17 bB de 
1119 2 2f a9 1f 
1121 : aa 64d 78 
1129 z &c. Ib 83 
11351 =: fa 91 eB 
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1739 ı 31 eS fb.S5f 
1741 : a5 a4 aß 12 
1749 : 19 82 f8B &b 
1751 : a7 dS Ba e8B 
175979 : 18 37 14 92 
1761 : a9 if 84 cd 
1769 : d4 42 Ob ea 
1771 : de 29 Se el 
1773-2. B8F.0% 35 68 
1781 = bf BB 2 39 
1789 : 71 49 &0 4d 
1791 : f4 Bc d8 37 
1779 : 82 Gb ei 7f 
17al : 49 9e 14 44 
1739: 13.332 8c 
17b1 : b2 4c fQ a3 
1757 = 74 33 E2 Be 
17c1 : e8 27 fe D2 
17c9 =: 11 e4 ef c2 
17d1 =: 84 cb 84 4c 
1749 = c4 2b a2 93 
i7eil : 5 Bf a9 ei 
17e9 : ba bb bi Ad 
171 = 64 7c 5 7e 
17f9 z dd 15 Se a7 
1881 : fe e3 5b Se 
18089 3 97 18 9 29 
1811 : 53 2d Bc 56 
1817 : 2b Gb c5 8b 
1821 =: c2 ed Add f2 
1827 : b2 2a dS5 cd 
1851 : bi Id 64 45 
1839 : 42 77 86 ch 
1841 = bA 35 a9 F9 
1849 : 49 c7 364 38 
1851 : bi ad 4f c8 
17:49 Ic de’ct 
1861 3 c& b3 3f 23 
18689 =: 1f SA 30 41 
1871 = ad 4 cB cd 
1879 3 &2 78 ce: 43 
1881 : 15 d3 89 ec 
1889 =: 7d ®c 4a 4a 
1891 : 1f 54 ec B9 
1899 =2 cr 1 78 24 
18al : dS5 d®@ 88 Sd 
1839 : 398 54 ch &53 
18b1 : a7 ad 12 74 
18b9 : dS5 dp 98 5d 
18c1 2 38'324 ch 83 
18c9 =: a7 28 87 75 
18d1 =: 66 c&h BB ?f 
18d9 : ie #8 55 ad 
iBel : aa a4 id 66 
189e9 : 78 3f 61 81 
i8fi =: 85 Se c2 94 
18f9 : e3 4a Id 9e 
1981 3: 9e d& 37 33 
1989 : 7& bi 29 af 
1911 : fe Ba ?2a Sc 
19197 3 cd DEE d2 
1721 : 15 735 48 e9 
1929 : 7f 87 Be 43 
1951 =: 7f be d4 24 
19359 : Be 97 6f 9a 
1941: =: 88: 93 .13- Sc 
1949 ı 83 &7 Sa 17 
1951 : aS 96 d5 88 
1959 : c3 Sa 9c It 
1961 : 72 d6 ee if 
1969 2: bB Ab 16 1f 
19771 = 61 &a 84 bB 
1979 1: #& b2 35 ad 
1981 : 8d 7c 3d Bf 
179897 : Sc 64 645 65 
1991: c& be if ei 
1999 : 58 5a a4 Sc 
19a1 = dS 87 df 2c 
1939 : 17 a4 2b Se 
19b1 : 95 b& le Be 
19b9 : 28 B4 b8 ce 
1921: 3 fd fa #5 53 
19c.97 =: 97 71 e6 ff 
19d1 =: a4 88 72 e6 
19d9 = 98 a7 c8 13 
19eil = 4 fB 44 ff 
19e9 2: 9 fa c4A ff 
191 2 &f 49 7a 77 
19f9 : 92 Bl dc 9? 
1aBi1 : 29 fb ei 25 
1a09 : 7d 38 9 54 
iall : c4 ff b4 49 
1317 : a7 f97 c2 7 
1a21 = f5 c4 97 87 
1a27 : &d ac 74 ec 
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Sa 25 1asi 
Ss5 ed 13397 
le Ad 1a41 
se 65 1349 
2 25 1351 
14 &6 1a59 
ba 37 1a61 
d4 #4 1a69 
cd 83 1a71 
83 Bd 1a79 
48 85 138i 
bi 47 1387 
=7 ce 13971 
37: >73 1a97 
bS 6f laal 
d& b3 1aa? 
ia : Se iabi 
6 2 1ab? 
es 85 ilaci 
ee bö 1ac? 
18 cb 1adi 
ge eb 1ad? 
5c BB iael 
Sc aß lae? 
35: Sb 1afi 
DB Za 1af7 
ei d8 1boi 
99 ie 1b97 
aB 96 1b11 
3 e6 1b19 
bb ba 1b21 
fc 9 1b27 
4c 5a 1b51 
Sc fd 1b37? 
65 793 1b41 
a4 c5 1b49 
94 ca 1b51 
07 54 1b5? 
bi ea 1b&1 
74 4 1b67 
di 78 1b71 
22. 1b 1b79 
72: 38 1b81 
24 208 1b89 
17° 28 1bY1 
Ze d? 15997 
18 bd ibal 
17 fa iba? 
ze fi ibbi 
18: 435 1bb9 
97 9e ibc1 
Sc: 48 1bc? 
2: 28 ibdi 
7 1bdY 
36 96 ibei 
4a 1b ibe? 
aa d7 ibfi 
6a 353 ibf? 
29: 5 1cBi 
e5 7a 1c09 
7 e7 1.17 
ei S5e 1c19 
18 Se 1221 
ya wi 1f 1-29 
Re 4 ic351 
Ge. FE 1c397 
07 b2 ic41 
ei ff 1c47 
Bf 76 1c51 
897 64 1c5%7 
fd 70 icöl 
ia 0897 1c69 
a4 1c71 
82 f4 1c79 
95 be 1c81 
17. 30 1c89 
19 39 1c91 
9 6 1c97 
1729 icai 
db c5 1ca? 
ch df icbi 
a7 aa icb? 
23 dd icci 
6 95 icc9 
ec 58 icdi 
eBß B& 1cd? 
39 6f icei 
e5 ed ice? 
a4 7b icti 
Ba cb 1ic#7 
f@® bc 1dBi 
FB cd 1497 
4f 40 idi1 
4 48 1d1?7 
ch 5a 1d21 


Listing 1. Hauptprogramm von »Hypra-Platos« (Fortsetzung) 


1d29 
1431 
1d39 
1d41 
1d49 
1d51 
1459 
1idöi 
1d67 
1d71 
1d77 
1d81 
14899 
1491 
1d997 
idal 
1ida? 
idbi 
1db? 
idci 
1dc? 
iddi 
1idd? 
idei 
ide? 
idfi 
idf? 
leBi 
1e99 
leii 
le19 
le21 
le297 
le3i 
1e39 
1le41 
1e497 
ile5Si 
1e59 
ledi 
1e6? 
le71 
1e77 
ie81 
12897 
1le91 
1e97 
leal 
lea? 
lebi 
leb? 
ieci 
lec? 
ledi 
led? 
ieeil 
lee? 
iefi 
lef? 
181 
1997 
ifi1 
i1f17 
ıf21 
1f29 
131 
139 
141 
149 
151 
159 
ifö1 
1f67 
1f71 
17797 
ıif81 
189 
191 
1997 
ifail 
ifa? 
ifbi 
1fb? 
ifci 
1fc? 
ifdi 
1fd? 
ifei 
ife? 
ıff1 
iff? 
2001 
2909 
2811 
2819 
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2B21 ss 36 1c 
2929 ı:7€ 87 
2851 : B8c 47 
295359 : 5b 99 
2B4i : dös ac 
29049 : dd 8a 
2031 ı 31 32 
2059 : 96 c2 
2851 : Sa d& 
2959 =: 7d dB 
2871 =: 31 Ba 
29077 : ed 84 
zB81 : 835 59 
2887 : Ba 4c 
2891 : f7 aa 
2873 2 BI € 
2Bal : 953 ca 
2039 : #5 Sc 
zuu1 = fa:c? 
20b9 : 17 5a 
20c1 » 57 54 
28c93 3, Sa: 2E 
zZudi : 897 f& 
284? =: Sf de 
ZBei : ea el 
2Ue?7 =: 8d 25 
2ufi : a2 af 
2uf7 : 9b 8b 
2181 =: e9F 4d 
2189 2-53 ch 
2111 s b4 37 
2317 2. J1G:b3 
2121 : af ed 
2129 ı &c Se 
21351 =: c6 18 
2137 ı be: 13 
2141 : ad &4c 
21439 z 71 b3 
2151 ! dc 64 
2137 2. 70 54 
6 ee 
2169 = bd e® 
2171 = 24 2 
2179 : 4b 42 
2181 : 497 be 
2187 : Ac 976 
2191 2: 9:82 
21977 2: #1:39 
2ial =: 57 d® 
2139 : 84 f& 
zibi : 7& 84 
2167: 5 #173 
zi1c31 2.7671 
21c9 =: 8& da 
z2idi1 = 93 753 
21d? : ec 83 
2lei : 1f 14 
Zie9? : 4d eß 
211: 2. de-1@ 
21797 = 7/7 MH 
2281 : e4 4f 
2287 : dZ 84 
2211 = 1b De 
2217 3-78 C6 
2221 s Id fd 
2229 ss Ge 2 
2231 2: c@: 35 
2233 3 Od ac 
2241 = 9# df 
2249 2 #2 Sc 
2251 : e9 Ba 
ZI 2.377 
2261 : 7e 38 
22897 : bi eS 
2271 = 9d ca 
2279 ı 22 af 
2281 : 697 b4 
2289 : af 78 
2291 ı 33 ed 
2299 ı Bb ec 
22al : 15 92 
2239 : a5 fa 
2201 : Ba 7qd 
22b9 : e5 Gd 
zzc1 2: el Bd 
IE 9: 3 DE: 7 
2201: 2 'cB #3 
22d9 : Bd 2e 
221 2.37 89 
ZERFT 2. 31- CH 
22f1 2 34 bB 
22f9 : e2 ae 
2381 = bc &b 
2307 z:2 aB ae 
zSs11T ı be .äb 
2517. » 94. 35 
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2921. ı Sc Sf dS ac 
2929 : &97 9e id ae 
2931 : db a6 78 52 
2939 : aa e4 cf Bf 
2941 =: 39 ab 24 fb 
29749 : 54 eBß 97 f2 
2951 : c4 29 fb 82 
2959 » 84 Od f5 83 
2951 : d3 44 Be 72 
29589 : 57 ee 997 f4 
2971 : cD 87 47 e? 
2979. : 42 55 65 72 
2961 : b9 e7 75 f4 
2989 : 2d ea 76 2c 
2991 : 35 69 Sa &2 
2999 : 1ıf 74 68 9708 
2931 : 93 f2 da cO 
2939 : 4b &6& 2c 85 
29b1 : a3 aa 58 bb 
2969 : ae ce 42 2c 
29c1 : 55 81 bB a4 
29c9 : 7/e Sf ac 67 
29d1 : ca 35 18 82 
29d9 : fd be 48 4b 
z29el : eb 56 eB 42 
29e9 : a5 67 54 92 
29f1 : 5b Be b4 29 
29f9 : Se 81 Ac 58 
2a801 =: 12 cc fd 97 
22307 : Bd 564 85 99 
Zailı : fd B7 Bc e4 
2319 : 89 544 7e 553 
Za21 : 45 87 82 cc 
2329 : 3f 19 ea 4a 
Za3i : 9e bO b&b 87 
2339 3 9b 8c f2 93 
2a41 : Ad ch 78 fd 
2349 : ef bb 78 fd 
2351 s 9 Sc 35 48 
2359 =: 4c DB dd Ac 
Za6i : 35 45 e2 Se 
2369 : bf 5c 74 b9 
2371 »: f1 79 5d 48 
2379 : 1f da f2 bf 
2a81 : 2b b5 78 f4 
2389 =: a7 f1 77 Se 
2391 s 9%6:57 953 Se 
2397 : fd 5f Bi eb 
Zaai : ab 49 eb 4e 
2a39 : af 45 e7 b2 
Zabi : fi e7 Ba 7e 
2ab9 : 5a be 9535 dö 
2aci : 5464 93 d6 9d 
2ac9 : af 45 e7 b2 
2adi : 4e c7 78 f2 
2ad9 : 87 97 bS 56 
Z2ael : cS f4 ct 58 
Z2ae? : b4 b9 27 fB 
Zafi : 52 Je 953 ca 
2af9 : ad 27 99 cc 
2bBi : fd ea 4a db 
2b89 : 35 88 fd dB 
Zbil : 2c Gb Sa f53 
2b 1I%.r 67 097. 27 
2b21 :s B1 67 Se &c 
2b29 : 9d 77 bB 71 
Zb31 : Gb 3a fS5 4 
2b39. : ec cd 5f ie 
2b41 : b3 af 56 7a 
2b49 : b3 36 7b ie 
2b51 : 14 997 46 di 
2b59 : 5b la d4 fd 
Zb&1 : 36 76 95 al 
2669 =: 2& f4 da 2B 
2b71 ss 85 fe 23 54 
2b797 : b9 aa cQ 5e 
2h81 ı 7b Sc 7d ac 
2b89 : &b 11 9d a3 
Zb9i1 : bIS 15 8d a5 
2b97 : 58 e5 da 539 
Zbali : a9 b4 41 B5 
2ba9 : 82 73 29 2a 
2bb1 =: 21 cb 9a ab 
2bb9 =: cc d@ aS 31 
Zbc1 : 4a 4b a9 b3 
2bc9 : 85 36 7b 49 
2bdi : a9 357 b& If 
2609 : 3d b2Z 397 1f 
Zbeil : 21 f4 6f °9c 
?2be9 : dc: &c af 978 
2bfi1 : 85 f2 58 989 
2bf9 : 94 B2 Sc 48 
2cB91l: 3 2b. c2 9 c8 
2c809 =: ae 15 di 49 
ec 1172 Zoo 287685 63 
22.19. 1-16 1€E e387 
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2c29 


ze21 


2c31 
2c39 
2c41 
2c49 
2cSi1 
2c59 
2cöi 
2c67 
2c71 
2c797 
ZcBi 
2c89 
2c91 
2c97 
zcai 
2ca? 
Zcbi 
2cb? 
Zcci 
2cc? 
Zcdi 
2cd? 
Zcei 
Z2ce? 
Zcfi 
2c#? 
ZdBi 
2da9 
2dii 
2d1?9 
2d21 
2d29 
2d31 
2d39 
2d41 
2d47 
2d51 
2d59 
2döl 
2d69 
2d71 
2d79 
2d81 
2487 
2dP1 
2d7? 
2dal 
2da9 
Zdbi 
2db9 
Zdci 
2dc? 
Zddi 
2dd? 
2dei 
2de? 
Zdfi 
2df? 
ZeBi 
2e87 
Zeil 
Z2e17 
Ze21 
2e29 
Zei 
2e39 
Ze4ai 
2e49 


9958 
FBsB 
7948 
9078 
97978 
928 
9988 
9278 
97278 
97BDad 
F7BaB 
FBbB 
92b8 
98c0 
F8c8 
92408 
9948 
9BdeR 
FDe8 


2e5i1 : aa 78 f7 2d dd ei 
2e597 : de el ee la fd 78 
Zeöi : bl 61 eb 7e bö6 bf 
2e69 : al 2e 36 cf Se c6 
2e71 : 29 36 a8 81 cY7 a4 
2e797 »: 35 fa f& Sf bf Sf 
ZeBi : 71 91 fe 7c 9d 12 
2e87 : 92 cö6 be la b5 a4 
Ze91 =: b5 AS di cb 253 8c 
2e97 : 3a 8f 8f 80 35 de 
Zeal : 99 61 46 542 33 fc 
2ea9 : 15 95 c9 74 cc 82 
Zebi : be 82 f4 ic fö b? 
2eb? : cB 5e c2 da 9a fö6 
Zeci = 9% 39 1b 94 ch c? 
2Zec9 : 28 51 78 Sc ff 538 
Z2edi : 7c 17 ce 18 ac f& 
2edF : 7c 93 14 Gb eA 87 
zZeei : 72 3b 81 95 f2 2a 
Zee? : 56 if ca Ac 93 &b 
Zefi : e4 aß 12 eS 97 e2 
2ef9 : Ad #5 49 7c ei b? 
201 : f2 59a 89 71 82 #7 
2f0979 : B1 2e 30 51 98 19 
zfi1l : B8 e5 78 535 f9 1d 
2f19 : 953 85 48 67 bd c3 
2f21 : 75 35a c8 53 97 ©c 
2f29 =: b9? 86 48 47 ci c53 
2f31 : e7 ei 73 84 7c 9c 
2f39 : d5 3c b2 54 9 27 
2f41 : 14 #9 358 44 86 7b 
249 : 7a a7 55 8c 85 597 
251 : Ba 77 38 c9 Gc fB 
259 : &c #3 fG c9 cI Se 
2f61 : 8b da 9e 59 33 4 
269 =: e8 57 45 235 c6 di 
2771: 3 E23 12 lc 88 2E 
279 : 9a 42 4bf 9c 44 97 
2f81 : 14 9# 9c dS3S 42 Bb 
2f89 : 34 d2 58 G&c ce 57 
zf71 : 8f 78 05 fZ 48 56 
299 : dS3 32 88 bc 72 9 
2fal : bf Sc 14 44 23 e3 
2fa9 : bb ce 3d 8c 99 d2 
2fbi1 : eö ca 42 c5 Be S3d 
2fb? : d2 b4 81 da 95 5a 
2fci : cb 59 645 2d 2b 3a 
2fc9 : a4 94 38 fh 32 67 
2fdi : B7 da 54 ea eß db 
2fd? : 1a e5 al 14 2b a2 
zZfei : 69 ai 85 f8 fe 57 
2fe? : e4 33 39 54 72 bö 
ztf1 = 3f 9b Sa 92 14 35 
2ff97 = 8c c4 7c 78 84 ad 
seR1 : 12 23 2b 93 35 997 
3a07 : 58 5c d4 de 31 22 
3B11 : d4 b8B e9 Eb Bi 78 
3817 : 99 92 Sc 65 357 Bl 
3821 =: 4 db e4 84 bB c4 
3027 : 18 d5 48 2e 76 B4 
3831 : 64 aß 12 eS 52 55 
3839 : b8 da Bf 47 bi 77 
3841 : 24 Sc 56 44 253 9d 
39849 : a2 91 bI3 48 B2 Gb 
3851 z Sc 29 bS c2 Be c4 
3057? = Sa ee c5 37 84 c5 
35B61 : 91 a8 9a 756 BA 2a 


Listing 1. (Schluß) 


Listing 2. Der zweite Teil 
von »Hypra-Platos« 





ad bf 
26 Se 
5a Bd 
af ib 
46 16 
a7 Sf 
cf 11 
ba GBc 
6a 31 
7a fe 
82 18 
bu4 58 
e7 82 
fb b4 
94 56 
28 98f 
e4 fe 
be dS5 
bI<E3 
@b cß® 
4a 3a 
05 1d 
4a b3 
e7 6a 
4 48 
aa da 
e3s 57 
49 98a 
15 &4 
d2 b3 
32 B? 
64 Be 
19 ce 
85 #d 
17 ec 
e7 5f 
Sd f& 
d4 #4 
ad >3# 
25 db ' 
83 ie 
EI DBE 
81 b2 
937 76 
36 ib 
d3S ef 
d2 di 
8b 34 
b2 4c 
92 f& 
e1u 47 
82 14 
e3 &b 
2r. 71 
ce> 55 
43737 
dd &f 
97 #8 
b5S b5 
d2 &2 
76 87 
2b ec 
a 
#9 e7 
7 
88 e4 
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9188 =: if if 18 
91988 2: fg #8: 18 
9190 : 46 bh 7e 
91978 : Bd 1d 48 
91a : ad b9 87 
91a8 : 85 22 c9 
91b@ =: c? BB dB 
91b8 : 3d &b aß 
91cd : 28 48 a? 
91c8 : 85 fb bi 
91d8 : b1 fa 97 
F1d8 : 2B 48 28 
Jileß : ad if 68 
JileB : cd 28 48 
g91fB : Ac ba Fi 
g91f8 : 28 ac 92 
92008 : 972 28 31 
9208 : 464 Bf 4c 
9218 : fa a? 88 
9218 :ı 69 I... 5 
9228 =: Sc B3 Bd 
9228 : 22 d® 88 
92350 : B2 38 48 
9238 : a5 87 da 
92408 : a6 87 da 
9248 : 21 48 cB 
9258 =: 18 &B aß 
9258 =: 87 da 17 
9268 : B7 dB Bf 
9268 : 21 58 cB 
9270 : 18 &B 18 
9278 : fa 98 82 
9288 : 38 a5 22 
9288 : 23 e? 80 
92780 : BB a5 22 
92978 : 40 aß 00 
9238 : 91 fa 8a 
9238 : d@ fi 18 
92b8 : 48 d@ 18 
92b8 : 83 c8 ad 
9ZcB : 18 ad 28 
92c8 : &8 18 &8 
92dB8 : 48 dB Bb 
92d8 : 22 48 d® 
gF2ZeBß : 4c ae 92 
92e8 : cB 85 fb 
970 : QB8 85 ff? 
928 : da 13 a5 
73800 : GBc a5 fB 
9398 = Bd b? 87 
318 2'291 8 
9318 : 18 a5 fa 
9320 : QB2 ed fb 
9328 ı B3 f8 
9353580 : 92 SB ad 
93358 : 2B 48 aa 
93548 =: 87 85 fI7 
93248 : Bd aa 87 
7358 : Ba dB Bi 
9358 : Sc BS 8d 
9352 : BIS Bd ab 
93568 : 28 48 dd 
9378 =: 3Sc B3S Bd 
9378 : B5 8d a8 
9388 : ad a9 87 
9388 : ad if 58 
9378 : 67 Bd a? 
7398 : 697 B2 8d 
9338 : ad id 48 
73538 : 85 fb ad 
935bB2 : fa cB ad 
93b8 : aa 87 bP? 
TSEB 2 cE:D7 Sc 
935c8 : 82 ad 35 
973d8 : ab 87 91 
33d8 : 59 4 Bd 
935eB : le 48 28 
3eB8 ı'31 93 38 
9358 : aß aa ca 
93548-: 69 u. 
7408 : Sc 853 8d 
3408 : bI Ic 83 
9418 2 87 99 Ic 
9418 : 8d a8 87 
7428 : B5 Sa a8 
9428 : 83 c8 ad 
9438 : Ac 31 93 
94398 : cQ@ 85 fb 
3440 : ac aa 87 
9448 =: 87 c8 b? 
9458 : a5 fa cd 
9458 : fb cd le 
9468 : ad @B bi 
9468 : 14 c8 bi 
9470 =: GBc ee ab 
9478 : BS35 dd 82 


85 


fa 


74 Zu 


valda 


ad 
68 


a9? 
Bd 
87 
30 
Bi 
ul") 
98 
da 
95 
ci 
85 
28 
de 
95 
ei 
85 
28 
da 
ds 
108 
8d 
9 
fe 
23 
83 
97 
1 
28 
de 
83 
da 
33 
3b 
da 
e? 
95 
&d 
Ad 
ala] 
fa 
68 
fa 
fa 
7 


ab 
18 
18 
a? 
A4c 
94 
85 
a? 
d3 
88 
Du 
Ba 
e& 
fa 
67 
18 
22 
ch 
Ba 
84 
1& 
ad 
7b 
e5 
20 
18 
28 
ie 
ab 
ad 
fD 
77 
28 
72 
a7 
fe 
#2 
f3 
DB 
a2 
a? 
a9? 
aa 
ea 
[ala] 
fa 
cd 
bi 


98 
44 
28 
d> 
Bd 
8d 
Bd 
85 
28 
10 
za 
74 
IE 
8d 
i® 
20 
94 
Ic 
8d 
Ob 
97 
ad 
fe 
c9 
37 
47 
dc 
28 
do 
dä 
23 
4c 
Bd 
uf 
8 
21 
975 
4c 
d5 
d& 
6a 
i8 
28 
[17] 
27 


a5 9c 
a6 57 
87 @d 


ad 
ad 
ic 
c4 
4c 
fc 
24 
87 
85 
bi 
91 
02 
78 
28 
as 
eb 
58 
es 
23 
a8 
ds 
a2 
18 
) 
28 
lie 
ab 
&8 
978 
fb 
c9 
66 
20 
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92398 : 18 18 18 18 18 
9388 : e5 a9 92 Bd db 
9a98 : Bd 78 9a a9 28 
9298 : a9 BO Bd 7e Ya 
g9aaßd : c9 B2 dB Ba ad 
9aa8B : 28 da 83 4c 96 
9abQ : 9d ae dd 87 ad 
9ab8B : Ba e5 a9 Se 208 
9acd : Se fi fB fb c? 
7ar8: 2.4. #3 9a c97 11 
9add : Ze 9b c? 85 da 
9adB : 9b c9 84 da 83 
9aeß : c? 45 dB 93 Ac 
9ae8 : Ad dd 83 A4c b97 
Yaf® : d® cd Ac Ba bf 
Y9af8 : c9 32 dB 93 Ac 
9buRB : a5 fa e9 Bu 85 
9bB8 : e7 BB 85 fb ae 
9b1B : BB 18 28 Ba e5 
9b18 : d2 ff ce d& 87 
9b28 : aB BG 18 28 Ba 
9b28 : 28 d2 ff 4c bf 
9b35B : d&a 87 &9 Bl cd 
%b358 : 835 A4c bf 9a 18 
9b48 : BA 85 fa a5 fb 
9b48 : fb ae d4 87 ad 
9b58 : Ba e5 a9 20 28 
958 : d& 87 ae dö 87 
9b&4B : 28 Ba e5 a9 Se 
9b&B : Ac bf 9a ad 7b 
9b78 : Ac bf 9a 18 ad 
9b78 : 4e 8d 78 9a ad 
9bB2 : BB Bd 79 9a 28 
FbBB : BZ Sd da 87 ee 
9b9B : bf 9a ad Fe 9a 
9b98 : bf 9a 38 ad 78 
9baß : Bd 78 Ja ad 79 
9ba8 : Bd 79 9a 28 12 
9bbB : 8d d& 87 ce 7e 
9bbB : Ya ad 7a 9a c9 
9bc® : Ac bf 9a a5 fa 
9bc8 : a5 fb 8d 7d 9a 
9bdB : fa 997 88 9a cB 
FbdB8 : fh ae döü 87 ad 
9beBß : Ba e5 a9 aß 28 
S9be8 : 9d 28 d2 ff 28 
9bfR : B3S Ac ae 9a ad 
9%bf8 : 83 Ac ae 9a Bd 
9cBB : d& 87 aß 85 18 
9c08 : 290 A8 75 a5 15 
9c18 : fb 9c A4c 864 9a 
9c18 : a4 87 ae d6 87 
9c28 : 2B Ba e5 28 48 
9c28 : fQ Q&4 28 fb 9c 
9c308 : a5 14 Bd a7 87 
9-38 : aQB 14 18 29 Da 
9c4B : 28 d2 ff a9 9d 
7c48 : 208 77 7d 98 83 
Ic5B : ad 9d 87 da 83 
9-58 : 8d aß 87 ae d% 


7188 
9118 
9118 
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9cö08 
9c68 
9c78 
9c78 
9c88 
9c88 
9-98 
7c78 
Fcad 
9ca8 
9cbB 
9cb8 
9cca 
9cc8 
9cda 
9cd8 
9ceB 
9ce8 
FcfB 
Ic#8 
FdBR 
9?d88 
Fd1® 
7d18 
9d28 
9428 
9d38 
7438 
97d48 
9448 
97458 
9458 
9458 
9468 
9478 
9478 
9d88 
9488 
9492 
9498 
9daß 
daß 
9dbB 
9db8 
7 dc 
dc 
?dde 
9ddB 
?de® 
9deB 
9df® 
9dfB 
geBdD 
Je98 
9e1Bd 
Je18 
9e2D 
9e28 
9e3B 
ge3B 


Listing 3. Der Druckertreiber zu »Hypra-Platos« 


‘de 


c? 
63 
72 
10 
di 
1 
20 
le 
88 
7 
&7 
Da 
öb 
ad 


ad 


a5 
92 
60 
c7 
64 
ER 
| 
03 
id 
f53 
te 
az 
d2 
a4 


48 


Ic 
87 
Ba 
D& 


14 


a8 
a? 
aa 
85 
ad 
28 
B7 
Sc 
84 
fb 
85 
28 
D& 
ad 
ad 
c? 
az 
a9? 
31 
9a 
a9 


d® 
80 
fa 
a2 
fa 
az 
fa 
9e 
aß 
13 
22 
ad 
28 
ad 
le 
28 
Ri] 


a9 
7a 
78 
fb 
Da 
Ba 
68 
28 
i8 
ad 
27 
82 
8b 


+1 
&5 
ed 
4 
95 


18 


+2 


az 
ag? 
11 
4c 
053 
12 
di 
15 
28 
ie 
80 
c? 


- 68 


05 
31 
78 
28 
96 
22 
az 
85 
58 
33 


20 
ie 
24 
b7 
fZ 
f3 
fe 


ge4B : fe 99 Ac 5b 
9e48 : BRD ad ?1 Ac 
ge5ß : Bf 47 90 BO 
ge5B : ff ff BB BD 
gedß : FF fd BDO BD 
geöß : ff ff 98 38 
9e78 : ff ff DD 29 
9e78 : ff df 88 BO 
geBR : ff ff OD 28 
ge88 : ff ff O8 98 
ge9B : ff ff BB DO 
9e98 : ff ff BB 98 
geaß : ff ff DB BO 
geaß : ff ff BD 28 
gebe : ff ff BO DO 
g9eb8 : ff ff BO BD 
gecß : bf ff BD 988 
9ec8 : ff ff DD 2808 
9edB : ff ff DD BR 
9ed8 : ff ff BB 808 
geeß : ff fd BD DD 
gee8 : ff ff BDO 38 
gef : ff ff BD 88 
g9ef8 : ff df DO 828 
900 : BB BR ff ff 
908 : BO Da ff ff 
910 : BO DO fr ff 
918 : BB ua ff ff 
920 : BB OD fr ff 
9f28 : BD BO ff ff 
9358 : DB DD fr ff 
938 : OB OD fr ff 
948 : BB DD fr ff 
g9f48 : BB OO fr ff 
950 : DB DO ff ff 
958 : DO na ff ff 
958 : BB 982 ff ff 
968 : BO BO ff ff 
978 : BB BR ff ff 
9f78 : Ba 20 ff ff 
9f88 : BR DO fr ff 
F7f88 : BO OO ff ff 
998 : BD Da fr ff 
998 : 99 DD fr ff 
9faßB : BB BO ff ff 
9faB : BO DO ff ff 
9fba : DO BR FF ff 
g9fbB8 : BO BD fr ff 
9fcDB : 48 DO ff ff 
Y9fc8 : BB QQ ff ff 
9fdB : BO BO fr ff 
Y9fd8 : BB BO ff ff 
9eB : BB D2 fr ff 
Y9fe8 : BB na ff ff 
98 : BR DO ff ff 
gff8 : 464 49 31 2e 








94 239 92 a2 73 
Be 47 54 BB fc 
Bo ff BB BR a7 
ff ff 2a ma 57 
ff ff aa 88 Se 
ff ff pe ua 67 
ff ff apa 98 6f 
f7 bf 44 988 #5 
ff ff BB BB 7f 
ff ff po 98 687 
ff ff BB BB Bf 
ff ff Do 3a 97 
ff ff pm 29a 9% 
ff ff 38 98 a7 
ff ff BB BB af 
ff ff aa BQ b7 
ff ff BB BB 7f 
ff ff a2 99 <c7 
ff ff 28 BB cf 
ff ff aa 988 d7 
ff ff BB 28 de 
ff ff 08 98 e7 
ff ff 22 98 ef 
7 bf 42 98 &5 
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73d8 : 790 32 ed 
I35eB : dO 87 28 
93eB.: 4c 76 9c 
958 : fe 85 ff 
938 : a5 f8B c9? 
9408 : #3 a? 85 
9408 : @1 Ba 28 
9418 : A4c 14 95 
RIB TE TE BE FE 
9420 : fc 29 e® 
79428 : bil fc 97 
7438 : 18 a5 fc 
9438 : fd 497 98 
7448 : dd dd a2 
9448 : 85 fc a9 
9458 : BB bi fc 
9458 : da f7 a2 
9480 : 4B 358 4 
94L8 : 508 Ac 41 
9470 : 36 34 20 
9478 : 45 4b 45 
9480 : 42 45 52 
9488 : 453 4b 45 
9498 : 28 20 28 
9498 : 28 47 52 
9428 : 20 20 28 
9438 : 2f 32 29 
9468 : 52 28 31 
9468 : 53 45 49 
94c0 : 28 28 Sa 
94cB : 32 29 O2 
9448 : 33 2B 28 
94d8B : 20 28 22 
74eB : 44 Zd 4b 
94eB8 : 28 28 3a 
940 : 39 297 208 
94fB : 28 4& 58 
9508 : 2d 4b 41 
9588 : 28 3a 28 
9510 : 29 20 28 
9518 : 44 58 38 
9528 : 55 45 4b 
9528 : 4 55 54 
95508 : 20 45 52 
9558 : 54 28 98 
9548 : 28 22 BU 
93548 : f@ DB 908 
95580 : 790 09 388 
9558 : 798 4B 48 
9588 : ad eR BD 
9568 : 18 1B iB 
9578 : 88 85 8b 
29578 : 28 fd 95 
7588 : 11 fQ fB 
7538 : 1d fO eB 
9778 : 94 fB ed 
9598 : 8b 97 98 
Sad : 8b a5 8b 
9538 : bc 95 48 
95b8 : 8b 48 28 
95b8 =: 48 Ac 753 
95cB : a4 Bb 29 
9S5cB : ff 85 7a 
95d8 : 735 BB fa 
75d8 : a9 BR 85 
9S5eß : #7 b7 28 
7Se8 : cc a9 20 
958 : 14 28 d2 
95f8 : dd #5 Ac 
96888 : bB fb 58 
7888 : a7 30 85 
9518 : fa a9 ce 
9418 : 85 #7 9d 
9628 : 85 f9 8d 
9628 : a4 fe bd 
96858 : c8 ca 04 
9638 2: #9. €7: 88 
9440 : LU ad 983 
9848 : 91 fc eB 
JESB.: ca f7 au 
9458 : 35B 48 18 
96558 : id aß 95 
9558 : f3 a9 B& 
9470 : fe a9 BO 
9578 : a2 B& 20 
9588 : dzZ ff 28 
9888 : B4 a8 208 
Fa7a : b7 20 4a 
96498 : ad BR 84 
95a8d : 4a f3 a2 
9638 : Bd 28 d2 
95b8B : 31 dQ D& 
Fö6bB : 85 28 Gd 
9ucD : ad 4b 95 
.‚96c8 = 11 97 18 
ud : 20 43 97 


fa 
c? 
38 
22 
c? 


f8 
a9 
a9? 
78 
fa 
58 
fe 
eö 
da 
fc 
fd 
bd 
85 
85 
TE 
an 
28 
as 
ed 
62 
fd 


f2 
bi 
ff 
d2 
3a 
cI 
2a 
208 
ed 
fc 
kat 
28 
&8 
fe 
fc 


ei 
fc 
18 
1 
283 
ed 
a7 
a9 
bi 
BF 


67 
as 
ed 
232 
ralra) 
18 
18 
18 
au 
Bu 
2@ 
2B 
21 
fe 
Di 
ir 
208 
a9? 
d2 
1& 
22 
85 
fa 
85 
78 
fa 
58 
fe 


18 


02 
85 


33 


18 
02 
az 
f2 
280 
cd 
c8 
Od 


fb 
28 
9b 
az 
zu 
ge 
Ei 
a9 
85 
fe 
27 
Da 
aa 
as 
85 
fc 
#7 
85 
85 
85 
co 
18 
o2 
85 
7 
To 
fe 
az 
78 


fi 
+3 
85 
eo 
98 
8d 
Ze 
fd 
33 
Od 
3 
#f 
fd 
fe 


bi fe 097 
a 
85 fe 98 


65 
ag 
bi 
fc 
a5 
eo 
a2 
cB 
a7 
ad 
fc 
da 
85 
85 


Wr 


fc 
85 
67 
e8 
[nal] 
a0 
18 
i8 
18 
al) 
nr] 
/e 
f3 
2D4 
2a 
So 
47 
ff 
2a 
a9 
d2 
997 
85 
ab 
a7 
Di 
as 
#E 
fa 


tb : 


a5 


d® 
85 
c7 
18 
67 
ed 
27 
fd 
bi 
18 
02 
az 
ag 
a9 
fa 
c8B 
23 
372 
585 
65 
ars] 
ff 
18 
1f 
f8 
if 
f8 
[= Ye) 
2a 
67 
2a 
a7 
d2 
73 
ff 
28 
28 
94 
ad 
83 
85 
fc 
Ir 1 
Ya 
co 
88 
as 
ed? 


9cbB 
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Drucksache 


Mit »Profiprint« wird »Hypra-Text«, das 
Listing des Monats aus der letzten 
Ausgabe, zu einem kompletten Text- 
verarbeitungs-System ausgebaut. 


Geben Sie bitte das Listing ein und speichern Sie es auf 
der Diskette, auf der sich auch »Hypra-Text« befindet. Starten 
Sie »Hypra-Text« wie gewohnt (»Kennungs-POKEs« nicht ver- 
gessen). Im Hauptmenü drücken Sie die Taste »3«. »Profiprint« 
wird jetzt automatisch nachgeladen und gestartet. Zuerst ein- 
mal müssen Sie einige Parameter bestimmen: 
Druckeradresse | 

In den meisten Fällen wird der Drucker über die Adresse »4« 
angesprochen. Bei eventuell auftretenden Problemen lesen 
Sie bitte im Druckerhandbuch nach. 

Datum 

Hier sind Sie nicht an das Format »ttmmjj« gebunden. Sie 
können zum Beispiel auch »17.September 1985« eingeben. 
User-Port-Interface 

Wenn Sie Ihren Drucker über ein User-Port-Centronics-Ka- 
bel betreiben, so geben Sie auf diese Frage ein »j« ein. Es wird 
dann automatisch die benötigte Software installiert. Für 
Drucker, die am seriellen Bus ee sind, geben Sie 
»N« ein. 

Sekundäradresse | 

Bei den Commodore-Druckern der Reihe MPS... ist diese 

meist »7«. Bei Epson- oder Star-Druckern, die über ein Interfa- 


ce angeschlossen sind, müssen Sie eine »10« eingeben. Bei : 


Unklarheiten hilft meistens das Druckerhandbuch. 
Einzelblattmodus 

Hier können Sie wählen, ob Sie nach jeder gedruckten Seite 
ein neues Blatt einlegen wollen. Der Computer wartet dann 
nach jedem Blatt, bis Sie eine Taste drücken. 

Jetzt kommt das Wichtigste: Wenn Sie das erstemal mit 


»Profiprint« arbeiten, müssen Sie sich ein Formblatt erstellen. 


Das ist, einfach gesagt, ein optischer Rahmen für Ihren ausge- 
druckten Text. Auf jeder Druckseite wird dieses Formblatt mit 
ausgedruckt. Sie können zum Beispiel Ihren Namen und Ihre 
Adresse, das aktuelle Datum und die Nummer der Druckseite in 
das Formblatt integrieren. Um sich ein Formblatt zu erstellen, 
geben Sie auf die Frage nach dem Einzelblattmodus ein »f« ein. 

Jetzt wird zur Druckparameter-Definierung verzweigt. Die 
nun folgenden Eingaben werden mit in das Formblatt über- 
nommen und gelten für jeden Ausdruck. Sie müssen sich na- 
türlich vorher überzeugen, ob Ihr Drucker zum Beispiel die ver- 
schiedenen Druckarten auch beherrscht. Da wären: 
Normall/klein 

»Klein« bedeutet, daß mit komprimierter Schrift mit der 
Schriftart »Superscript« gedruckt wird- Diese Funktion benö- 
tigt man, wenn man extrem viel Text auf eine Seite bringen will. 
Normallkomprimiert 

Hier bedeutet »komprimiert«, daß der Drucker auf 136 Zei- 
chen pro Zeile eingestellt wird. »Normal« sind 80 Zeichen pro 
Zeile. 
- NormallElite 

Die Schriftart »Elite« ist auch eine Art der Text-Verdichtung. 
Allerdings wird nur von 80 Zeichen pro Zeile auf 96 Zeichen 
komprimiert. 
Normal/NLQ/Empha 

Um die NLQ-Schrift zu benutzen, müssen Sie natürlich ei- 
nen entsprechenden Drucker besitzen. Bei der Schriftart 
»Empha« wird der Text hervorgehoben gedruckt. 
Null mit Strich 

Sie können jetzt die Form der Null bestimmen. Wenn Sie oft 
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Texte mit mathematischem Inhalt drucken, so empfiehlt sich, : 
die »durchgestrichene Null« zu wählen. 
Zeichen pro Druckerzeile 

Diese Zahl sagt dem Programm, nach wieviel Zeichen es ei- 
ne neue Zeile anfangen soll, abhängig von der gewählten 
Schriftart. Wenn Sie zum Beispiel »Elite« gewählt haben, dann 
müssen Sie hier eine »96« eingeben. 

Davon benutzte Zeichen 

»Profiprint« läßt der Übersichtfichkeit wegen einen linken 
und einen rechten Rand frei. Die Randbreite bestimmen Sie 
hier. Wenn Sie zum Beispiel 96 Zeichen pro Zeile haben, und 
davon nur 81 nutzen möchten, so wird der Rest auf 1/3 linken 
Rand (hier 5 Zeichen) und 2/3 rechten Rand (hier 10 Zeichen) 
verteilt. 

Zeilen pro Druckseite 

Hier müssen Sie die Länge Ihres Diisekainenlens eingeben. 
Endlospapier hat meist 72 Zeilen pro Seite; Einzelblatt meist 
60 Zeilen pro Seite. Der nun folgende Teil der Formblatterstel- 
lung ist der wichtigste: Überlegen Sie sich gut, wie ein Text- 
ausdruck später einmal aufgebaut sein soll. Sinnvoll wäre zum 
Beispiel: Erste Zeile nur Minus-Zeichen (als Markierung), 
zweite Zeile Ihr Name... In der fünften und sechsten Bild- 
schirmzeile von oben wird die genaue Position innerhalb des 
Formblattes angezeigt, auf die sich die nächste Eingabe be- 
zieht (Position x=O, y=1 ist ganz links oben). 

In alle Zeilen, in denen ein »Ist-gleich-Zeichen« steht, wird 
später der eigentliche Text gedruckt. Ein Punkt innerhalb des 
Formblattes sagt dem Computer, daß er an diese Stelle das 
weiter oben eingegebene Datum drucken soll. An Stellen, an 
denen ein »Sternchen« (*) steht, wird die aktuelle Drucksei- 
tennummer gedruckt. 

Weitere Tastenfunktionen sind: 

»1« — Teile des Textes mit »=«-Zeichen ausfüllen. 


Ben ONFNEF£rmblatt-Eingabe beenden. Wenn Sie mit Ihrem Werk 


zufrieden sind, und es gespeichert haben (!), drücken Sie die- 
se Taste. Danach sind Sie wieder bei der Frage, ob Sie ein 
User-Port-Interface besitzen. 

F3— Dasbis jetzt erstellte Formblatt wird ausgedruckt. Für die 
»=«-Zeichen setzt der Computer dabei das Wort »-Test-« ein.- 
So können Sie Ihre Eingaben jederzeit überprüfen. 

F5 — Zeile hoch. Der Cursor geht eine Zeile nach oben. 
»Return«— Zeile nach unten. Der Cursor springtin die nächste 
Zeile. 

F7 — Speichern. Wenn Sie Ihr Formblatt fertiggestellt haben, 
können Sie es durch diese Taste auf me schreiben. Als 
Name ist »FORM« sinnvoll. 

F2 — Formblatt laden. Hier können Sie ein bereits erstelltes 
Formblatt in den Computer laden, und beliebig verändern. 
F4 — Die aktuelle Cursorzeile wird auf Mitte zentriert. 

F6 — Die Cursorzeile wird rechtsformatiert. 

F8 — Die Cursorzeile wird im Blocksatz formatiert. (Zur Erläu- 
terung: Dieser Text ist zum Beispiel blocksatzformatiert.) 

Mit.der Tastenkombination »Control« und »L« löschen Sie 
das Formblatt. 

»Control« und »E« führt Sie zur Parameter-Eingabe zurück. 
Wenn Sie Ihr Formblatt fertiggestellt, gespeichert und Fi ge- 
drückt haben, landen Sie wieder bei der Frage nach dem User- 
Port-Interface und nach der Druckersekundäradresse. 

Die nächste Frage des Computers (»Einzelblatteinzug ?«) 
beantworten Sie entsprechend dem von Ihnen verwendeten 
Papier. Danach müssen Sie den Namen des Formblattes ein- 
geben. Jetzt sehen Sie auch, warum der Name »FORM« sinn- 
voll war: Sie brauchen nur noch »RETURN« zu drücken; 
»FORM« steht schon auf dem Bildschirm. 

In Zeile 6070 müssen Sie den Namen einsetzen, den das 
EIAUPIDFOGKSRIEN »Hypra-Text« auf Ihrer Diskette besitzt. 

(Oliver Fendt/tr) 
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1 FPOKE 458,128: IF PEEK(1822)=B THEN 5208 


2 POKE 2,32:POKE 53280,8:POKE 53281,@:PRIN 


T" {WHITE}" 
in IF PEEK(1922)=1@@ THEN POKE 1922,1:LOAD | 


11 
12 
13 
14 

ıs 
1& 
17 
18 
20 


57 
48 


41 


42 
45 


46 


47 
48 


49 
59 


1 


= Ya 
53 


54 
SS 
56 
57 
58 
59 
68 


78 


71 PRINT" {DOWN3HALLO "zV$£(1)5;"," 

72 PRINT"BITTE GIB DAS IATUM EIN." 

73 POKE 988,8:POKE 921,8:PRINT" {DOWN}DATUM 

74 SYS 598176,D$,D$ 

98 DIM F$(2708) „A$ (258) :GE=89:GOSUB 42018 

99 LF=QB: FAs="" 

108 CV=9: N8=9: YX=9: ED=Q: BA=1:60SUB 370008 

142 REM 

143 PRINT" {CLR,2DOWN}BITTE NUN DIE DATENDI 

SKETTE MIT DEM" 

144 PRINT"EORMAT EINLEGEN UND EINE IASTE D 

" RUECKEN. " 


145 


158 
188 


178 


188 


"ZEICHEN B",8,1 


IF PEEK(1922)=258 THEN POKE 1922,2409:L0 


AD"ZEICHEN DIN" ,8,1 

IF PEEK(1@22)=1 OR PEEK(1922)=24@ THEN 
POKE 53272,8:POKE 56576 ,PEEK (56576) AND 
252:POKE 648,192 

PRINT" £CLR}" 


IF PEEK(1822)=1 THEN FOKE 1822,2:L0AD"Z 


EICHEN D" „8,1 
IF PEEK(1822)=248 THEN POKE 1@ 
AD" ZEICHEN DDIN" ‚8,1 


IF PEEK(1822)=2 THEN POKE 1822,3:L0OAD"PF 


ROFIP v1.0",8,1 


IF FEEK(18922)=218 THEN POKE 1922,288:L0 


AD"PROFIP V1.90",8,1 


IF PEEK(1022)=200 THEN POKE 922,2:POKE 
923,1 
C$="N" :K$S="N"ESYS="N" 2 S1$="N" NUS="N":G 


E=8B: ZZ=40: YY=6B 
Asd$=" (7BSPACE}>" 


ABF=ABS+" {SHI ee 3":1IF LEN(ABF)<208 


THEN 48 


BUS=CHRS (27) +"B"4CHRS (3) 4CHRS (27) 4" S"4C 


HR$ (1) 
BV$=BV$+CHR$ (Z7) +" A"+CHR$ (5) :DIM V$(509) 
PT$=CHR$ (14) +" {RVSON „ZSPACE}PROFIPRINT 
(C} 1985 BY OLIVER EENDT {3SPACE}" 


IF PEEK(9S3SB)<>B THEN GOSUB A4BBRNU:GOTO 4 


PRINT" £CLR}3";,PT:FA=8 


"PRINT" {CLR3";PT$=:PRINT"MNUN DIE PORFIADR 


ESS DATENDISKETTE {7SPACE}EINLEGEN, "5 
PRINT" UND DEN DRUCKER ANSCHALTEN. " 


N$="":POKE 917,39:POKE 918,30:POKE 920, 


7:POKE 924,8 


POKE 798,8:POKE 721,8: PRINT" {HOME „DOWN 


2 


>HAME {11SPACE}Y”":SYS 58175,N$,N£: PRINT 
IF VAL(N$)>B THEN Y=VAL(N$):GOTO 788 
GOSUB 4B1BB: IF Y=B THEN PRINT" BENUTZER 
NICHT REGISTRIERT":G0OTO 58 


GOSUB 52145:6G0SUB 58155:CL0OSE 2:CLOSE 1 


3 
IF V£(8)="- 
ZUGRIFFSBERECHTIGUNG":GOTO 58 


P$="":PDKE 917,59:FOKE 9718,38:POKE 928, 


7:FPOKE 724,8 


POKE 788,8: POKE 721,8: PRINT" {HDME, &DOWN 
WHITE} KENNWORT {BLACK}" SYS 209175, P$,F# 


= PRINT" {WHITE}>" 
IF PEEK(715)=1 THEN 58 


BA$=V$ (8): IF FA$SZ>P$THEN PRINT" KENNWORT 


FALSCH": GOTO 56 


INPUT" X{SDOWN ,WHITE}DRUCKERADRESSE {2SPAC 


E3413LEFT}";DA 


D$="":POKE 9717,39:POKE 718,38: POKE 9728, 


7:POKE 924,B:PRINT" {CLR}";PT$ 


POKE.198,8:WAIT 198,1:6ET B$: IF B$="{F 


13"THEN GOSUB 37131:G0TO 143 
CLOSE 15:0PEN 15,FA,15,"1" 
OPEN 2,FA,2 „FOs+",S, R" : INPUT#15, ER,A$: 


IF ER<>® THEN PRINT A$:POKE 198,8:WAIT 


198,1:60T0 99 


INPUT#2, AN: INPUT#2,C$,K$,5Y$,S1#,NU$,G 


E,ZZ 
INPUT#2,A$: YY=VAL(A$) 


22,210:10 


"DR V$(8)=""THEN PRINT” KEINE 


<BöA> 


<221> 


<161> 


<10B> 


<202> 


<BßBi> 


<161> 


<225> 


<198> 


<1971> 


<B55> 


<122> 
<@14> 


<xB75> 


<202> 


<B577 


<155> 


“17723 
<a54> 


<116> 
<180> 


<188> 


<B49> 
<B92> 
<246> 
<292> 
<216> 
<244> 
<149> 
<183> 
<116> 
DIE 
<232> 
<B&A2> 
<2357> 
<a12> 
<B4h> 
<9384 > 
<294 > 
<151> 
<255> 
<B61> 
<241> 
<B19> 


<131> 
<x1777> 


Der Druckertreiber zu »HypraText«. Beachten Sie bitte 
die Eingabehinweise auf Seite 54. 
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198 
198 
197 


288 
201 


202 
203 
284 


205 
206 
218 
21} 
212 


228 
225 
238 


231 


232 
2355 
234 
235 
248 


245 
258 
Bl, 
>18 
314 


FZ=1:FOR T=1 TOD YY+28:60D5SUB 3508: 6GOSUB 
12200 

NEXT=:CLOSE 2:G0OSUB 2BBBB: IF Bt= 

HEN GOSUB 15000 


"{FB3"T 


T$ 

IF T$="ALLE"THEN GOSUB 39008 

IF BA<GQ@ THEN T$=N$ (BA) :BA=BA+1:60T0 2 
18 

PRINT" {4DOWN}EITTE NUN DIE DATENDISKET 
TE MIT DEM" 

PRINT"IEXT EINLEGEN UND EINE IASTE DRU 
ECKEN. {DOWN}" 

POKE 198,08:WAIT 198,1:GET A$:IF A$="<F 
13"THEN 100 

GOTO 218 

G0SUB 218: END 

IF VVv=1 THEN 11908 

CLOSE 2:CLOSE 15:0PEN 15,FA,15 

OPEN 2,FA,2,T$+",5,R": INPUT#15,ER,A$:1I 
F ER<>@: THEN PRINT A$:POKE 198,8:WAIT 
198,1:G60TO 188 | 
INPUT#2,AN: P=9:605SUB 36808 
TA=1GE-ZZ)/3 

POKE 198,8:1IF ED=2 THEN GOSUB 1BBBB: GO 
TO 248 

PRINT" {CLR,2DOWN}BITTE LEGEN SIE EIN R 


LATT EIN UND{7SPACE}DRUECKEN SIE EIN IT 


ASTE" 

GOSUB 19088 

GET At: IF At=""THEN 233 

PRINT" {CLR}";PT$ 

PRINT" {DOWN}ICH ARBEITE .„..." 
PRINT" {DOWN}ACH DRUCKE SEITE"; 
NT"IEXT :";T$ 

SH=SH+1: IF SH=2 THEN GOSUB &88 
RA={GE-ZZI /S 

v=@8 : IF N7<Nö THEN V= (N4-NTI/S 
U=1:FOR WW=1 TOD YY:CO$F=LEFTF(F$SCWW) „12 
IF COf="#"THEN GOTO 508 


SH+1:PRI 


wis CO#="."THEN Af=DA$:GOSUB 2891:60T0 


316 
328 
321 
358 
331 
3352 


3357 
340 


541 
342 


343 
349 


352 
368 


420 
418 


458 
455 
456 
460 
sag 
Si 


oz 


Ssı1 
sun 


788 
718 


s40 

IF CO$<>"="AND CDOT >"+"AND CO$<>"+"THE 
N A$=F$ (WW) :G0OSUB 2899:G0TO 348 

IF V>1 THEN Af="":60DSUB 28988: V=V-1:60T 
0 340 

IF U>N7 THEN At="":GOSUB 28988: U=U+1:60 
TO 348 

IF CO£="="THEN A$=A$ (U) :U=U+1:60SUB 28 
2BU:G0TO 348 


IF CO$="+"THEN GOSUB 4298: U=U+1:60SUB 2 
BOB: GOTO 348. 
IF CO$="e"THEN GOSUB 418: U=U+1:605SUB 2 


BUB:GOTO 348 
IF M$=" (FB3"THEN NB=979797: WW=97977 
NEXT WW 


PRINT" {SDOWN}1 {3DOWN?": 
65=-1:50T0 235 

IF N8=9797 THEN FOR MN=1 TO 999:GET Af: 
IF As=" {F&ö}"THEN N8=Q 

NEXT 

PRINT" {SDOWN}Z{SDOWN}"= IF NB=977 AND B 

A<B@ THEN CLOSE 2:CLOSE 15:CLOSE 1:N8= 
2B:G0TO 281 

IF vv=1 THEN 218 
PRINT" {CLR>FERTIG" 

[7] 
AF=LEFTFLAF LU) +ABF, ZZ) +RIGHTS$ (F$ (WW) „L 

EN (F$ (WW) )-1) :RETURN 

A$=RIGHTF(F$ (WW) „LEN {FE CUW) I — D+AS(W: 

RETURN. 

PRINT" {3DOWN ,SPACE}##* PAUSE #x*#*" 

GET M$: IF M£<>"{iF3>"THEN 455 

IF M£<>"{F1}"THEN END 

GOTO 2818 

REM #*%* SEITENNR. #%#* 

AF=LEFT$ (Ad$ „INT (GE/2.5) -TA) +"—-"+5STR$( 


IF N8<>9977 THEN 


:POKE 198,9:G60T0 408 


SH) +" —" 


IF TD$="J"THEN A$=At+T$ 

GOSUB 2891:60T0 348 

FOR T=1 TO 28:F$(T)=F$(T+YY) =NEXT:GOSU 
B ZUB00: RETURN 

IF Y=979797 THEN BA$="GA":GOTO 72 

IF Y=9BQ THEN V$ (8) ="OF":PAF="SABRINA" 
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<175> 


<164> 
<19735> 


<B82> 
<B48> 
<188> 


<178> 
<157> 
<124> 
<077> 
x244> 


“LiF> 
<218> 
<B48> 


<995> 
<144> 
“2127 
<203> 
<112> 
<B80> 
<B49> 
<B76> 
<B&äas> 
<115> 
x197> 
<118> 
<B44> 
<075> 
<1B0> 
<a1il> 
<192> 


<851> 


-<136> 


<220> 
<143> 


<281> 


<124> 
<8797> 


<184> 
<11B> 


<1927> 


<114> 


<888> 
<187> 
<122> 
<Bu2> 
<186> 
<152> 


<995> 
<B75> 
<121> 


<115> 
<189> 
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:GOTO 56 


720 IF Y=9@1 THEN V$(8)="OL":PA$="EDV":GOT 
D 56 
725 IF Y=9@2 THEN V$(8)="RH":PA$="NIE":GOT 
D 5& 
73@ IF Y=903 THEN V$(8)="SZ":PA$="FRAU":GO 
TO 5& 
7997 GOTO 54 
17977 END 
Zune GOSUB 59428: GOSUB 2500 
2u@1 IF A$<>""AND As<>"F"THEN A$=LEFT$ (ABS 
‚„TA)+AF 
2025 REM 
2u0& XY=1 
28987 GET M$: IF M$="{F1}"THEN 458 
2U1@ A$=A$+CHR$(13):FOR Z=1 TO LEN(A$) 
2028 B£=MID$(A$,Z,1):G0SUB 4450 
2030 AS=ASC (B$) 
2848 IF AS>191 AND AS<234 THEN AS=AS-96 
zuSa IF AS>223 AND AS<255 THEN AS=AS-64 
2060 IF AS=255 THEN AS=126 
2078 IF XY=2 THEN Z=Z+1 
2888 IF XY=3 THEN XY=2 
Zu70 IF AS<128 THEN B$=CHR$ (PEEK (1026+AS) ) 
:GOTO 2208 
Z1BB AS=AS-160: B$="" 
2118 Zi=B:IF PEEK(1282+8*AS)<>B AND PEEK(1 
281+8x*xAS?<>27 THEN B#=CHR$ (PEEK (1924) 
): Zi=1 
212@ IF Zi=@ THEN GOSUB 2300 
2138 IF Zi=i1 THEN GOSUB 2480 
214@ IF Zi=1 AND BR=@ THEN B$=B$+CHR$ (PEEK 
(1925) ) 
2158 IF Zi=1 AND BR=1 THEN B$=B$+CHR$ (PEEK 
(1826) ) 
2208 PRINT#1,B$; 
2218 NEXT:POKE 532645,27:RETURN 
2300 FOR DD=1 TO 8:MN=PEEK (AS#8+DD+1200) 
2318 IF MN=® THEN NEXT DD:RETURN 
2328 GOSUB 4400: Bt=B$+C$: NEXT DD: RETURN 
z24@2B FOR DD=1i TO B:MN=PEEK (AS*8+DD+1200) 
2410 IF MN=@ THEN NEXT DD:RETURN 
2428 GOSUB 4490: B$=B$+C$: IF BR=1 THEN B$=B 
$+C$ 
2438 NEXT DD:RETURN 
2508 IF LEFT$(AS,1)<>"#"THEN RETURN 
2581 IF A$<"#QR@"THEN RETURN 
2510 A$=RIGHT$(A$,LEN(A$)-1) : TA=RA+VAL(LEF 
T$(A$,2)) 
2511 A$=RIGHT$ (A$,LEN(A$)-2) :RETURN 
3088 IF E7=1 THEN E7=@:ET=9: A$=BB$: BB$="": 
GOTO 3944 
3005 A$=BB$:ET=Q: IF ZZ=@ THEN P=P+1: GOTO 3 
san 
3@18 IF NF=1 THEN 3988 
3811 POKE 915,2:POKE 917,2@2@:POKE 708,255: 
SYS 52182, BB$: IF(ST AND 44)=44 THEN B 
B+= LI; ; 
3@12 IF PEEK(913)=13 THEN P=P+1 
3013 IF BB$=">"THEN BB$="F":ET=1 
38014 IF BB$="> "THEN BB$="F":ET=1 
3815 IF RIGHT$(BB$,1)=" "THEN BB$=LEFT$ (BB 
$,LEN(BB$£)-1):G60TO 3914 
3s@B1& IF LEFT$(BB$,1)=" "THEN BB$=RIGHT$ (BB 
$,LEN(BB$)-1):60T0 3815 
3817 IF LEFT$(BB$,1)="@"THEN GOSUB 393002 
3818 IF LEFT$(BB$,8)="NOFORMAT"THEN NF=1:6 
0TO 3018 
3817 IF LEFT$(BB$,8)="MITTEZEN"THEN MI=1:6 
0TO 3818 
3028 IF LEFT$(BB$,8)="FORMNORM"THEN MI=9:6 
0TO 3018 
s@21 IF LEFT$(BB$,8)="RECHTSFO"THEN MI=2:6 
0TO 3818 
3822 IF LEFT$(BB$,8)="KEINFORM"THEN MI=3:6 
0TO 3818 
3823 IF LEFT$(BB$,7)="DEZLEN="THEN GOTO 34 
58 
3824 IF LEFT$(BBE&,1)="e"THEN GOSUB 3488 
sa28 IF LEFT$(BBF,2)="!!"THEN 3400 
3829 IF RIGHT$(BB$,1)="F"OR LEFTF(BBE,1)=" 
D"THEN ET=-1:E7=-1 
3938 C$=A$: IF RIGHT$(C$,1)="-"THEN C$=LEFT 


S(C$H,LEN(CH) -1) :C$=C$+BB$:G0OTD 3948 
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<B&7> 
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<a55> 
<2253> 


<B41>-. 


177> 
<B53> 
<a97&6> 
<xBi1ö> 
<164> 
<B135> 
<B83> 
<198> 
<181> 
<a327> 
<240> 
<118> 


157? 
<148> 


<a95> 
<225> 
<B477 


<x124> 


<148> 
<867> 
<207> 
<118> 
21375 
<B48> 


G228} 


<saul> 
<195> 
2547 
<a97&8> 
<B29> 


<9@78> 
<1280> 


<085> 
<079> 
<a55> 


<254> 
<251> 
<B15> 
<giä> 
<1352> 


<205> 
<B96> 


<083> 
<a2&> 
<237> 
<069> 
<134> 
<041> 


<132> 
<155> 


. <250> 


x166> 


3235 
s@48 


>@45 
5846 


5847 


3047 
SaS5B 
3851 


3868 
Zzı08 
3118 
3120 
3138 
3208 


s2u1 
3218 


sz211l 
Ss508 
33581 


5318 


‚3511 
3408 
Sag1 
3508 
3518 
3528 
3521 


C$=C$+" "+BB$ 

IF LEN(C$I<ZZ THEN A$=C$:E7=Q: IF ET=@ 
THEN 53818 

IF ET=1 AND E7=@ THEN BB$="" 

IF RIGHT$(A$,1)=" "THEN A$=LEFTS(AS,L 
EN(A$)-1):G0T0 3846 

IF LEFT$(A$,1)=" "THEN A$=RIGHTS(A$,L 
EN(A$)-1):G0T0 3047 

IF MI<>® THEN 3108 

IF RIGHT$(A$,1)="F"THEN RETURN 

POKE 918,22-Z1/4:POKE 917,2Z:5YS 5818 
5,At,A$ 

RETURN 

IF MI=1 THEN 3208 

IF MI=2 THEN 3300 

IF MI=3 THEN 3408 

REM IFMI=4THEN3458 

IF A$=""DR A$="F"THEN A$="":PRINT A: 
RETURN 

SYS 50179,A$:X8=(ZZ- (LEN(A$)-PEEK (917 
33 372: 

IF X8>@ THEN A$=LEFT$(A6G$,X8) +A$:RETU 
RN 

RETURN 

IF A$=""OR A$="F"THEN A$="":RETURN 
SYS 50179 ,A$:X8=(ZZ- (LEN (A$) -PEEK (919 
>) 

IF X8>@ THEN A$=LEFT$(A6$,X8) +A$:RETU 
RN 

RETURN 

IF A$=""OR As="F"THEN A$="":RETURN 
RETURN 

POKE 798,8 

POKE 915,2:POKE 917,136 

SYS 58182,A$: IF At=">"THEN At="" 

IF RIGHTS (A$,1)=" "THEN A$=LEFTSCAS,L 
EN(A$)-1): GOTO 3521 


3522 IF LEFTF(A$,1)=" "THEN A$=RIGHT$S(A$,L 
EN(A$)-1): GOTO 3522. 

3538 RETURN 

BUBAWREM *#* !! TABULATOR *#* 

3402 BB$=RIGHT$ (BB$,LEN(BB$)-2) :GH=VAL(LEF 


SaB5 


5618 
3628 
3458 
36353 


Sau 


5678 
Ss88 
3681 


5682 


3683 


3684 


3485 
368& 
3687 
3688 
3678 
3671 
3672 


3673 
3678 
36977 
3788 


39718 


3912 
3928 
3999 
4408 


Der Druckertreiber zu »Hypra-Text« (Fortsetzung) 


T£(BB$,2)) 

IF GH>ZZ THEN BB#=" {SHIFT-SPACE}":GOT 
0 3848 

GH=GH-LEN (C$): IF GH{IB THEN GH=B 
C+$=C$+LEFT$(AB$,GH)+"-":GOTD 5948 

REM *#* DEZLEN EINGABE #** 
BB$=RIGHT$ (BB$,LEN (BB$) -7) :DV=VAL(LEF 
T$F(BB#,1)) 
BB$=RIGHT$ (BB$ „LEN (BB$) -1) :DN=VAL (LEF 
T$F(BB$,1)) 

BB$="":G0T0 Ss@42 

REM ##* DEZIMAL BILDUNG *#* 

DW=B: RF£=RIGHT$ (BB$,1):IF VAL(RF$I=B 
AND RF$<>"B"THEN QW=1 

IF Bw=1 THEN BB$=LEFT$(BB$,LEN(BB$) -1 
) 


BB£=RIGHT$ (BB$,LEN (BB#) -1) :G6H=INT (VAL 
(BB£f)): IF GH{B THEN GH=GH+1 

DE$=STR$ (GH) =: DEF=RIGHT$ (DE$ „LEN (DE$) — 
1)2:6Z=GH 

DE+=RIGHT# (" {ISHIFT-SPACE}"+DE$,DV-1) 
IF G6Z<8 THEN DE$="-"+DE$ 

IF GZ>=B THEN DE$=" {SHIFT-SPACE}"+DE$ 
GH=ABS (VAL (BB$) -GH) 

IF DN=B THEN 3675 

DEF=DEF+"." 
GEH=GH*1BtDN: DN$=5STR$ (GH) = DN£=RIGHT$ (D 
N$,LEN(DNF$) -1) 

DEF=DE$+LEFT$ (DN$+" BRBBBRDAB" „DN) 
BB$=DE#: IF QW=1 THEN BB$=BB#++RF$ 

RETURN 

POKE 715,2:FOKE 717,ZZ:POKE 798,1:5YS5 
S2182,BB$:IF(ST AND 54)=44 THEN BB$= 
Li u N 

IF BB£="FORMATON"THEN NF=B: A$="":BB$= 
"":G0T0 3818 

IF BB$=">"THEN BB$="" 

A+=BB$: RETURN 

RETURN 

IF RV=8B THEN 4428 


<218> 


<145> 
<241> 


<247> 


<258> 
<1227> 
<218> 


<BB&> 
<B88> 
<175> 


<211> 
<829> 


<194> 
<228> 
<217> 
<255> 
<2B3> 
<851> 
<161> 


<248> 
<B25> 
<B81> 
<2B1> 


<a72> 


<B067> 
<195> 
<aaa> 
<247> 
<145> 


IFpR.23... 
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44981 IF MN=@ THEN C$="":RETURN <118> 
4402 IF MN<128 THEN C$=CHR$ (MN) sRETURN <@47> 
4410 MN=MN-128: MN=255-MN <13@> 
4420 C$=CHR$ (MN) : RETURN <099> 
4450 IF B$="Y"THEN BR=1:XY=3 <218> 
4451 IF B$="FR"THEN BR=0:XY=1 <B49> 
4452 IF S1$="S"AND (B$="K"OR B$="T"OR B$="T 
“")THEN PRINT#1 ,CHR$ (27) +"B"+CHR$ (5); <115> 
4453 IF Si$="S"AND (B$="FH"OR B$="F"OR B$="T 
")THEN PRINT#1 ,CHR$(27)+"B"+CHR$(A); <242> 
4468 RETURN <Z00> 
5O0OB PRINT" {CLR,RVSON,2SPACE3PROFIPRINT (C 
) "1984 BY OLIVER FENDT {2SPACE}" <118> 
5010 INPUT" {2DOWN}TASTATUR {SPACE „2RIGHT}DI 
N{SLEFT}":A$ <B87> 
5020 POKE 1922,250: IF A$<>"DIN"THEN POKE i 
222,108 <165> 
5038 RUN <246> 
6080 PRINT" <CLR}Y";PTS$ <036> 
6010 PRINT" {2DOWN,2SPACE}-®-{2SPACE}ENDE" <@9&> 
&@11 PRINT" {DOWN ,ZSPACEI-1-{2SPACEYEINEN I 
EXT_DRUCKEN" <115> 
6212 PRINT" {DOWN ,ZSPACE}-2-{ZSPACE}PROFITE 
XT LADEN" <Q47> 
625@ PRINT" <2DOWN}BITTE WAEHLEN SIE:" <Q40> 
6052 FOKE 198,0:WAIT 198,1:GET A$ <134> 
6054 IF A$="{F1}"OR A$="Q"THEN POKE 2,0:PO 
KE 938,@: END <100> 
6055 IF VAL(A$)>2 THEN 48252 <@17> 
sBAQ IF A$="1"THEN 100 <131> 
6070 POKE 2,8: PRINT" {CLR,ZDOWN}LOAD"+CHRE ( 
34) +"HYPRATEXT"+CHR$ (34) +" „8" <224> 
&BBR PRINT" {4ADOWNFRUN{HOME?":POKE 198,2:PO 
KE &51,13:POKE 6832,135:END <2477 
10022 N7=2:L=@ <@71> 
10010 IF N7>=N& THEN RETURN <067> 
10022 GOSUB ZAB@:N7=N7+1:IF P>AN THEN A$(N 
7) =A$: NG=999: RETURN <@19> 
10838 IF LEFT$(A$,1)="T"THEN GOSUB 1@190: I 
F RR=1 THEN RETURN <159> 
10035 IF LEN(A$)>L THEN L=LEN(A$) 
10040 A$(NTI=A$:IF LEFT$(A$,1)="F"THEN 100 
62 <B18> 
10058 GOTO 19018 <172> 
10040 IF 5>N&-N7 THEN RETURN <133> 
10045 GOTO 19018 <187> 
1B102 REM ** SEITENVORSCHUB ?? ** <132> 
18181 IF A$="T"THEN RR=1:60T0 19120 <@73> 
10102 RR=B: A$=RIGHT$ (A$,LEN(A$)-1) <@32> 
1B11B@ GO=VAL(LEFTS(A$,Z)): IF GR>N6-N7 THEN 
RR=1 <102> 
10120 A$="":A$(NT)="":RETURN <208> 
110@@ IF YX>=CV THEN #000 <083> 
11005 GOSUB 59145: SH=@: PRINT" {CLR}YARDEF £{D 
DOWN?" <@85> 
1121@ YX=YX+1:Y=A(YX):GOSUB 50155:CL0OSE 2: 
CLOSE 15:60T0 119838 <B29> 
11020 GOTO #98 <a78> 
1123® FOR T=1 TO 28:PRINT V$(T)=NEXT <146> 
11035 GOTO 211 <097> 
12088 IF LEFT$(A$,1)="t"THEN A$=RIGHT$ (AS, 
LEN(A$)-1):60T0 13000 <2a09> 
120@1 IF LEFT$(A$,1)="e"THEN A$=RIGHT$(A$, 
LEN(A$)-1):G0T0 1381@ <042> 
12@1@ F$(FZ)=A$: FZ=FZ+1:RETURN <a51> 
13008 F$(FZ-1)=F$(FZ-1) +RIGHT$ (AB$,ZZ-LEN( 
F$(FZ-1))-LEN (A$) )+A$: RETURN <172> 
13@1@ F${FZ)=RIGHT$ (AB$,ZZ-LEN(A$) )+A$ıFZ= 
FZ+1: RETURN <192> 
15008 REM ** ERSTELLEN FORMBLATT ** <049> 
15212 SOSUB 35008 <B98> 
15928 PRINT" {CLR?"=FOR T=1 TO YY+28 <185> 
15821 PRINT" {HOME ,7DOWN,42SPACE}"; <B65> 
15022 PRINT" {4BSPACE}"; <a34> 
15023 PRINT" {4BSPACE}Y"; <a35> 
15@24 PRINT" {48SPACE}"; <036> 
15825 PRINT" {HOME „7DOWN}"3FS(T); "8 " <113> 
15038 PRINT" {HOME}";PT$:PRINT"EDRMBLATT ER 
STELLEN" <@41> 
15@35 IF T<1 THEN T=YY <Bs0> 
15036 IF T>YY THEN PRINT" {RVSON?SEITE 2{RV 
OFF ,„SPACE}ZEILE"3 T-YY <193> 
15@37 IF T>YY+2B THEN PRINT" {23SPACE}":T=1 <932> 
150858 PRINT" {HOME,12DOWN}= = IEXT DRUCKEN 


76 SRap 


15951 
15052 
15954 
15955 


15956 
15957 


15358 
15359 
15968 
15961 
159642 
15978 
15971 
150932 
15878 
15995 
151808 
15118 
15128 
15121 
15122 
15125 


15130 
151531 


15134 


15135 


S2@32>OMLITSEBe: 


15137 
151358 
151597 


15148 
15141 


15142 
15143 


15144 


15145 


15146 


15147 
15148 
15158 
15155 
15168 
15408 
15921 


15618 
15611 
15612 


156135 


15638 
156458 
15668 
15708 
15705 


/ 1 EUSFUELLEN" 
PRINT". = DATUM HIER DRUCKEN" 
PRINT"* = SEITENZAHL HIER DRUCKEN" 


PRINT" (F1) 
BRUCK" 
PRINT" (FS5? 


AULES DKETSSPACE}I{FS? ABEND 
ZEILE HOCH (F7) SPEICHERN 


PRINT" (F2) 
PRINT" (F4) 
Es" 

PRINT" (F&) RECHSTFORMATIERUNG" 
PRINT" (F8) BLOCKSATZFORMATIERUNG" 
PRINT" (ERTLI+(L) EDRMBLATT LOESCHEN" 
PRINT" (ERTLI+(E) NEU PARAMETER EINST 
ELLEN" 

PRINT" {RVSON>ALLES WAS ANDERS IST, W 
IRD SO GEDRUCKT, WIE ES DASTEHT."; 
PRINT" {HOME „RVOFF „4DOWN} POS. X. {SSPAC 
E,ALEFT}"ZLEN(F$(T)) 

PRINT" EDS. Y. {SSPACE,ALEFTI"3T3" " 

IF PEEK(198)<1 THEN 15988 

GET A$ 

IF A$=CHR$(ZO)AND LEN(F$(T))=@ THEN 
15080 

IF A$=CHR$ (29) THEN F$(TI=LEFT$(F$(T) 
„LEN(FF(T))-1):G0TO 15155 

IF A$="{F1}"THEN LF=1:FA$="OK":FO$=" 


FDRMBLATT LADEN" 
AITTEZENTRIERUNG DES IEXT 


IF A$=" {FS3"THEN 15608 

IF At="t"THEN 15900 

IF At="{WHITE}"THEN GOSUB 35888: 60T0 
15921 

IF A$=" {CTRL-CH"THEN FOR U=1 TO 28:F 

E(YY+U)=F$(U) :NEXT:GOTO 159021 

IF A$=" {FS3"THEN T=T-2:NEXT 

IF Af=" {CTRL-L}3"THEN FOR U=1 TO YY:F 

$(U)="":NEXT: T=1:60TD 15921 

IF A$=" iFZ3"THEN T=9797:NEXT:GOTO 158 

om 

IF A$="iF7}3"THEN 15708 

IF At="iFA3"THEN F$(T)=LEFT$ (ABS, (ZZ 

-LEN (FF (TI I) /ZI+F$(T):G0OTD 15021 

IF A$=" {FA3"THEN F$(T)=LEFT$(ABF,ZZ— 

LEN (F$(T)))+FF{T):GOTO 15921 

IF A$=" {FB}"THEN POKE 918,3:POKE 917 
„2Z:ıSYS 58185,F#(T),F$(T):GOTO 159021 

IF A$=" {CLRF"THEN F$(T)="":60T0 1582 
1 

IF AF=CHR#(13)THEN NEXT:GOTO 15828 
IF A$=" {DDOWN}"OR At=" {UP}F"DOR At=" {RI 

GHT}F"OR A$="{LEFT}"THEN 15838 

IF At="{BLACK}"OR Af=" {WHITEY"OR A$= 

"<RED}"OR Af#="{CYAN}"THEN 15958 

IF A$=" {PURPLE}"OR A$=" {GREEN}"OR A$ 

=" {BLUEF"OR A$=" {YELLOW>"THEN 15958 
IF A$=" {DRANGE}"DR A$=" TBROWN}"OR A$ 

="<LIG.RED}"OR A$=" GREY 17"THEN 158 

sQ 

IF At=" {GREY 27"0OR A$="iLIG.GREEN}”O 

R A$=" {LIG.BLUE}"OR A$=" {GREY 33"THE 

N 1592358 

IF A$=" {RVSON}"OR A$=" {RVOFF}"OR At= 

"<CLRY"OR A$=" SHOMEY"OR ASC(A$)=148 

THEN 15938 

IF At=" {SHIFT-SPACE}"THEN 15158 

IF LEN(F$(T))=ZZ THEN 15168 

FF(T)=SF$CT)+A$ 

PRINT" {HOME „7ZDOWN}"; FEST); "GB " 

GOTO 159858 

REM ** DRUCKEN ##* 

PRINT" {CLR}";PT$: PRINT" {SDOWN}ZITTE 

HARTEN, ICH DRUCKE." 

GOSUB SARRR: FOR U=i TO YY 

IF F$tU)="."THEN A$=DA$:GOTO 15558 


IF F$(U)="#"THEN A$=" {BSPACE}-1-1185 
PACE}":GOTO 15558 

IF F£(U)="="THEN A$="-TEST-":GOTO 15 
650 

A$=F$ (U) 

GOSUB 2881 - 

NEXT U: A$="":CLOSE 1:60T0 15821 

REM ** FORM SPEICHERN ##* 


PRINT" {CLR}";PT£:PRINT" {2DOWN}SPEICH 
ERN" 
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<144> 
<127? 
<855> 


<B48?> 


<B975> 
<a27> 


<292> 
<8597> 
<197> 
<197> 
<B9B> 
<a24> 
<125> 
<214> 
<B84> 
<056> 
<a&0> 
<1904> 
<aa8> 
<116> 
<145> 
<11B> 


<161> 
<231> 


<B46> 


<B797> 
<148> 


<x157> 
<aau> 
<256> 


<199> 
<B4&> 


<2327> 
<154> 


<BS5> 


<245> 


<Ba&s> 


<149> 
<2356> 
<149> 
<166> 
<245> 
<154> 
<166> 


<1997> 
<158> 
<188> 


<185> 


<231> 
<1B1> 
<1B4> 
<B2B8> 
<184> 


<1&0> 


”i 





15786 
15718 


15728 
15721 


15722 


15723 
15730 
15748 
15758 


15828 
15881 
‚15885 


15818 
15815 


1581& 


15828 
15821 
15938 
15848 


15858 


15788 
15718 
15728 
153923 
159758 


22208 
zuB10 
zii 
2uui12 
29928 
SuRR0 
sBpR1 


S5pBR2 


>BB85 
Ssaa85 
38218 
>a028 


sa2@21 
sau22 
30025 
saa27 


39058 
3308 
sa3B1 
53318 


320328 


32358 
33348 


39358 


S5B408 
sg4au1 
‘52418 
59428 


59458 
58448 


38458 
34808 


34B18 
Ss59o20 
35188 


INPUT" £3DOWN} NAME"; N$ 
CLOSE 2:0PEN 2,8,2,"@: >"+BA$+"DODBRaR 
N4Nng+" ‚S,W" 
PRINT#2,5TR$ (YY+33) 5; CHR$ (13); 
PRINT#2 ,C£&:PRINT#2,K$:PRINT#2,5Y$:PR 
INT#2,51$: PRINT#2,NU$ 
PRINT#2,5TR$ (GE) 5CHR$ (13); 
PRINT#2,STR# (ZZ) 3; CHR$ (15); 
PRINT#2,STR$(YY)5CHR$(13)5 

FOR U=1 TO YY+28:PRINT#2,F$(U) =NEXT 
FOR U=1 TO 7:PRINT#2," "NEXT: CLOSE 
2:60T0 15921 

PRINT" {CLR,2DOWN+RBITTE NUN DIE DATEN 
DISKETTE MIT DEM" 

PRINT"EDRMAT EINLEGEN UND DEN NAMEN 
ANGEBEN. " 

INPUT" {ZDOWN} NAME" 3 A$: A$=" >"+BA$+"77 
PIFFN4AS 

CLOSE 15:0PEN 15,FA,15,"1" 
CLOSE 2:0PEN 2,FA,2,A$+",S, 
15,ER,A$: IF ER<>@ THEN PRINT A$ 

IF ER<>@ THEN POKE 198,0:WAIT 198,1: 
GET A$: PRINT" {CLR}":60T0 15928 
INPUT#2,AN 
INPUT#2,C$,K$,5Y$,51$,NU$,6E,ZZ 
INPUT#2,A$:YY=VAL(AF) . 

FZ=1:FOR T=1 TO YY+29:605UB 3500: 608 
UB 12000 

NEXT: CLOSE 2:60SUB 22@@@: PRINT" £CLR} 
":.G0T0 15928 

PRINT" {CLR}"3PT$ 

PRINT" {DOWN}EDRMBLATT AUSFUELLEN" 
INPUT" {DOWN}NDN ZEILE"5V 

INPUT" {DOWN+BIS ZEILE";B 

FOR U=V TO BzF$(U}="=":NEXT:PRINT" {C 
LR}I";PT$: T=B:G0T0 15821 

Na=@:FOR T=1 TO YY 

IF LEFT$(F$(T) ,1DI="="THEN N6=N6+1 

IF LEFT$(F$(T) ,1)="+"THEN NA=N6+1 

IF LEFT$(F$(T),1)="*"THEN Nö=N6+1 
NEXT: RETURN 


R": INPUT#_ 


2395> 


<a95> 
<a18> 


<088> 
<226> 
<158> 
<8007> 
<198> 
<xB87> 
<B58> 
<855> 


<a78> 
x151> 


z178> 


<B11> 
<x102> 
s215> 
<077> 


<B&5> 


<144> 
<B59> 
<B24> 
<052> 
x174> 


<197> 
<B48> 
<2408> 
<232> 
<a95> 


> 
IF DN<>1 THEN DIM N$(144) :FF=1:DN=e1 SR, 


PRINT" {ZDOWNIDIE BISKETTE, DIE GEDRU 
CKT WERDEN SOLL," 

PRINT"EINLEGEN UND EINE TASTE DRUECK 
EN{3DOWN}" 

POKE 198,B:WAIT 198,1:GET A$ 

CLOSE 2:0PEN 2,FA,2, 
INPUT#2,FF:QQ=1 . 
FOR T=1 TO FF: INPUT#2,N$(QQ): IF N$(Q 
Q)=">"OR N£(QR)=""THEN 30030 
PRINT"SDLL "zN$(@B);" GEDRUCKT WERDE 
N" 

POKE 198,B:WAIT 198,1:G6ET A$:IF As=" 
N"THEN PRINT"NEIN":GOTD SB983582 

IF A$="F"THEN PRINT"ERROR":GOTO 3008 
Q 


Ta DR er Te See Bez] 


+1 

NEXT=CLOSE 2:RETURN 

IF vV=B THEN RETURN 

FOR B=1 TO LENtBB$)-2 

IF MID$(BB$,B,1)<>"e@e"THEN NEXT: RETUR 
N 
X=VAL (MID$ (BB$,B+1,2)): IF X>5@ THEN 
x=-D 

IF X=B THEN NEXT: RETURN 
BB$=LEFT$tBB$,B-1)+V&£ (X) +RIGHT#$ (BB#, 
LEN (BB$)-B-2):G0T0 30320 

NEXT: RETURN 


REM ## VARTEST ## 

FOR B=1 TO LEN(A$)-2Z 

IF MID$(AF,B,1)<>"@"THEN NEXT: RETURN 
Xx=VAL (MID$S(A$,B+1,Z)): IF X>58 THEN X 
=B 

IF X=B THEN NEXT:RETURN 
AF=LEFTE(AF,„B-1)+V$ (X) +RIGHT$ (A$,LEN 
(AF)-B-2):G0OTO 39400 

NEXT: RETURN 

INPUT#15,EN: IF EN<>@ THEN INPUT#15,A 
$:PRINT AF;:RETURN 

RETURN 

REM *##* EINSTELLFORM ## 

PRINT" £{CLR}";PT£:CLOSE 15 
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<222> 


“2057? 
<207> 
<x169> 
<B67> 


<8975> 
<159> 
<99&8> 
<188> 


<BAl> 
xB56> 
<88B> 
<0357> 


<970> 


<0&9> 
<Bu8> 


<xB8A> 
xB651> 


<212> 
<165> 
x247> 


<1577> 
<108> 


<187> 
<161> 


<2227> 
<B29> 
<a974> 
<a971> 


351@1 PRINT" {HOME}" = PRINT" {DOWN} PARAMETER 


EINSTELLEN" 

35130 PRINT" {ZDOWN3ENI NORMAL LKI KLEIN{6S 
PACE}"5C$ 

35131 INPUT" {UP}LNI NORMAL LKI KLEIN{4SPAC 
E}"5C$ 

35132 PRINT"ENJI NDRMAL [XI KDMPRIM. {S3SSPACE 
}";K$ 

35133 INPUT" {UP3ECNI NORMAL LEI KDMPRIM. "5 
K$ 

35134 PRINT"ENI NORMAL LEI ELITE{ASPACEY"; 
SYE 

35135 INPUT" {UP}CNI NORMAL LEI ELITE{ASPAC 
Ernssvs 

35138 PRINT"LNI [51 NL@ LEI EMPHAS. {3SPACE 
3";51%$ 

35139 INPUT"{UP3LCNI [ä1 ML9 LEI EMPHAS. "; 
Ssiı$ 


35158 PRINT"NULL MIT STRICH{11SPACE}Y" 5; NU$ 

35158 INPUT" {UP3NULL MIT STRICH {YSPACE}"3;N 
us 

35178 PRINT"ZEICHEN PRO DRUCKERZ. {SSPACE}" 
:GE:BA=1 

35171 INPUT" {UP}FZEICHEN PRO DRUCKERZ. {55PA 
CE}"”5;GE 

35175 PRINT"DAVON BENUTZTE ZEICHEN {45SPACE} 
"= ZZ: N8=8 

35176 INPUT” {UP>3DAVON BENUTZTE ZEICHEN {25P 
ACE}": ZZ:N8=B 

35188 IF ZZ>20R THEN PRINT"ZU GROSS":6GOTD 
359188 

35185 PRINT"ZEILEN PRO BRUCKERZ. t&SPACE}”; 
wY 

35186 INPUT" {UP}ZEILEN PRO DRUCKERZ. T45SPAC 
EI"SYY 

35190 DAF=LEFTF (ABF,„ZZ-LEN (DEF) )+D$ 

35900 INPUT"EINGSABEN DK{1SSPACEIN{SLEFT}Y"; 
At: IF A$="N"THEN 55191 

35997 PRINT" {CLR}": RETURN 

SAaBaB REM ** DRUCKER INIT ##* 

Ken: FO="":FA$="":LF=B 

18- IF DS<>@ THEN CLOSE 1:0PEN 1,DA,DS 

36811 IF DS=@ THEN CLOSE 1:0PEN 1 „DA 

368012 IF TD$="J"THEN RETURN 

3&B15 PRINT#1 ,CHR$(Z7I,"@"; 
PRINT#1,BV#$; 

34928 IF ED<Z THEN PRINT#1 ,CHR$E (27)+"8"; 

34030 PRINT#1 ,CHR$(27)+"7"+CHR$(2),: IF SY#$ 
="E"THEN FRINT#1 ,CHR$ (27); "B"SCHR$ (2 
)35 

S36B4B IF S1$="S"THEN PRINT#1 „CHR (27); "B"; 
CHR# (4); 

35841 IF SIi$F="E"THEN PRINT#1 „CHR$(Z7I;,"E"5 

Sssa5Qa IF K="K"THEN PRINT#1 ,„CHR$(15);5 

S6B4B IF NU$="J"THEN PRINT#1 „CHR$ (27) ; CHR$ 
(72); CHR# (1); 

356878 DAS=LEFTE(AB$,ZZ-LEN(D$))+D$ 

36979797 RETURN 

37/088 REM #* EINSTELLFUNKTION ## 

s781l@ IF LEFTF(TF,„1?=">"THEN TF=RIGHT$(T®, 
LEN (T$)-97) 

371808 PRINT" {CLR}";PTF:CV=8: YX=9:CLOSE 2:C 
LOSE 15 

357181 PRINT" {HOME}" 

3711® POKE 198,8:65=8 

>7111 INPUT" {DOWN}USERPORT INTERFACE {8SPAC 
EIJLSLEFTI"SAF: IF A$="J"THEN SYS 581 
274 

57112 IF A$="N"THEN INPUT" SEKUNDAERADRESSE 
{1QSPACE}7{SLEFT3",DS 

37115 ED=B: INPUT"EINZELBLATT EINZUG {85PACE 
3JtSLEFTI"SAF: IF AF="N"THEN ED=2 

37116 IF A$="E"THEN &208 

37117 IF A$="F"THEN GOSUB 158988: 

37117 FA$="FODRM" 

37128 PRINT"NAME DES EDRMBLATTES {SSPACE>"; 


:IF C$="K"THEN 


G0TO 357208 


FA$ 
37121 INPUT" {UP}NAME DES FDRMATBLATTES{2SP 
ACE}";FO$ 


=7122 FA=FOf 
37124 FOs=">"+BA$+"BOBBDOB"+FOF 
37125 PRINT"NAME DES TIEXTES AUF BDISK{2SPAC 


Der Druckertreiber zu »Hypra-Text« (Fortsetzung) 


San TZ, 


<B897> 
<B85> 
<B45> 
<287> 
<175> 
<194> 
<228> 
<245> 


<243> 
186? 


<118> 
<x16&6> 
<115> 
“1177 


<204> 


<149> 


<854> 
<145> 
<2797> 


<194> 
<232> 
<226> 
<18B64> 


<198> 


<Ba5> 
<258> 


<1B4> 


“19727 


<a27> 


<254> 
x2354> 
<B45> 
<171> 


<162> 
<B28> 


<BAB> 
<B54> 


e.de 
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37126& 
57131 
37165 
37178 
37171 
37172 
379977 
SBuR2 
38281 
38082 
589018 


38951 


38052 
38053 
389854 


37200 
39885 


39210 
39812 
39@14 
37816 
39018 
39020 
39022 
39024 
39709797 


42000 


42810 


43100 


4u11B 


40128 


401358 
40148 
>8278 
Ss3aa75 
320976 


2077 


321908 
s21805 
8118 
38115 
>B128 
32125 


E3";T$ 

INPUT" {UP}NAME DES IEXTES AUF BISK"; 
T$: SH=@: RETURN 

INPUT"START SEITEN NR. {198SPACE}1 {3LE 
FT}"35$:5H=VAL(S$)-1 

INPUT"IEST. BRUCK {16SPACEIN{SLEFTY"5T 
D$ 

INPUT" ADRESSE BENDETIGT {FSPACE}YN {SLE 
FT}3";3A$: IF A$="J"THEN 38000 

IF A$="S"THEN VV=1:60SUB 50070 

IF A$="E"THEN 39208 

RETURN 

REM #* EINE ADRESSE HOLEN *# 

PRINT" {CLR}";PT$:PRINT" {DOWN?EINE AD 
RESSE LADEN" 

PRINT" {RVSON,SPACE}BITTE ADRESSDATEN 
DISKETTE EINLEGEN !tı " 

N$="":POKE 917,39: POKE 918,30:POKE 9 
20,7:POKE 924,8 | 

POKE 998,@:POKE 921,8: PRINT" {HOME,&D 
OWN}NAME {11SPACE}":SYS 590176,N$,N$:P 
RINT I 

IF VAL(N$)>Z THEN Y=VAL(N$):GOTO 380 
54 

GOSUB 4B1BR: IF Y=@ THEN PRINT" ADRESS 
E NICHT VORHANDEN":GOTO 38008 

GOSUB 58145:60SUB 58155:CL0OSE 2:CL08S 
E 15:RETURN 

PRINT" {CLR}"s3PT$=:PRINT=:PRINT Ä 
N$="":POKE 917,39:POKE 918,30: POKE 9 
29,7:POKE 924,8 

POKE 908,8:POKE 921,8: PRINT" {HOME ,&D 
OWN} VORNAME {8SPACE}":SYS 5B176,"" ,V$ 
(1)2PRINT 

POKE 988,8:POKE 921 ,8:PRINT" {HOME ,öD 
OWN} NACHNAME {75PACE}":SYS 50176,"" ,V 
$(2) PRINT 

POKE 948,8: POKE 921,8: PRINT" {HOME ,&D 
OWN?STRASSE {8SPACE}":SYS 50176,"" ,V$ 
(3) PRINT | 


<211> 
<134> 
<208B> 
<154> 
<115> 
<153> 
<108> 
<210> 
<125> 
<033> 
<182> 


<B45> 


<a978> 
<9972> 
<145> 


<202> 
<153> 
<@24 > 
<1177> 


<245> 


<125> 


52130 


32155 
8140 
328145 
534158 


38155 
32156 
sa1ä8 


38165 
2178 
58175 
sa188 
52185 


52178 
59175 
301976 
58177 


30280 


sazBi 
9295 
Ss9218 
58215 
>9228 
s9225 
302268 
30227 
50238 
sQa240 


39250 
su240 
302780 
328288 


POKE 9788,8:POKE 921 ,8:PRINT" {HOME, Baer oO 2: 


OWN}PLZ ORT{BSPACE}":SYS 50176,"",V 

(4) =PRINT 

POKE 788,8:POKE 9721,8:PRINT" {HOME ,&D 
DWN}IELEPHON {7SPACE}"=2SYS 5@174,"",V 
$(5) PRINT 

POKE F98,0:PDOKE 721 ,8:PRINT" {HOME ,&D 
OWN}SEBURTSD. {&SPACE}":SYS 59@176,"", 
V$ (6) :PRINT 

POKE 798,G:FOKE 721,8: PRINT" {HOME ,&D 
DWN}SPITZNAME {6SPACE}":SYS 58176,"", 
V$(11):PRINT 

POKE 988,8:POKE 921,8:PRINT" {HOME ,&D 
OWN}SLUSI KENNUNG {3SPACE}":SYS 590176, 
"„" V$(12):PRINT 

RETURN 

BA$=CHR$ (PEEK (938) ) +CHR$ (PEEK (931)): 
FA=PEEK (932) : RETURN 

POKE 938,ASC(LEFT$(BA$,1)):POKE 931, 
ASC (RIGHT$ (BA$,1)) :POKE 9732,FA:RETUR 
N 


CLOSE 2:CLOSE 15:0PEN 15,8,15:T=1:0P 
EN 2,8,2,"AD,S,R" 

INPUT#15,ER,A$: IF ER<>Q@ THEN PRINT E 
R,A$:PDKE 1978,8:WAIT 198,1:GET B$:60 
TO 42108 

INPUT#2,A$,Y: IF LEFTF(A$,LEN (N$) )=N$ 
THEN RETURN 

IF ST<>44 THEN 481208 

ELOSE 2: Y=8: RETURN 

REM *#* LOAD. AD ##** 

DIM A(5au) : INPUT"NAME";A$ 

ECLDSE 25CL0OSE 15:0PEN 15,8,15:T=1:0P 
EN 2,8,2,A$+",5,R" 

INPUT#15,ER,Af:IF ER<{>@B THEN FRINT E 
R,Af:POKE 198,B:WAIT 198,1:GET B#+:GO 
TD0 589974 

INFUT#2,AF,A(T) 

IF ST{>454 THEN T=T+1:6G0T0 59198 
CLOSE 2=3CV=T:ıRETURN 

REM *** FIND NAME ##* 

INPUT"NAME {2SPACE}"3X$ 

FOR Y=1 TO AN:IF LEFTFLAFCY) „LEN(XS$) 
I=XFTHEN 59135 


18 2a 


x2327 


<B&a3> 


<22B> 


<282> 


<1777 


<038> 


x152> 


8777 


<B853> 


<229> 


<u75> 
<B&82> 
<B91> 
<174> 
<Bal> 


x216> 


<235> 
<B18> 
<251> 
<883> 
<a85> 
<1457> 


<9797> 


NEXT=:PRINT"NICHT GEFUNDEN" : Y=@: RETUR 
N 

RETURN 

CLOSE 2: RETURN 

CLOSE 15:0PEN 15,8,15 

CLOSE ?:DPEN 2,8,2,"ASALEM,L,"+CHR$( 
254) :RETURN 

REM *##* LOAD NR %### 

HB=INT (Y/254) = LB=Y-2564*HB 

PRINT#15, "P"+CHR$ (2) +CHR$ (LB) +CHR$ (H 
B)+CHRE (1):POKE 915,2 

POKE 917,19:5Y5 58182,V$(1) 

SYS 59182,V$ (2) 

SYS 50182,V$ (3) 

POKE 917,3:5Y5 58182,V$(4) 

POKE 917,19:5Y5 50182,0$: V$(4)=V$(4) 
+ n ss +0& 

FPÜKE 917,15:5Y5 50182,V$(5) 

POKE 917,1:5YS5 50182,6$:V$(6)=6$+"." 
SYS 50182,6$: VE (6) =V$ (6) +G$8+". " 

POKE 917,3:5Y5 58182,6$:V$(6)=V$ (64)+ 
G#£ 

POKE 917,9:5Y5 5@182,PA$:V$(7)="GESC 
HUETZT" 

IF BA$="--"OR BA$="OF"THEN V$(7)=PA$ 
POKE 917,1:5Y5 58182,V$(8) 

POKE 917,9:5Y5 58182,V$ (9) 

POKE 917,9:5Y5 58182,V$ (18) 

POKE 917,19:5Y5 58182,V$(11) 

SyvS 59192,V$(12) 

SYS 58182,V$(13) 

SYS 50182,V$(14) 


AS=ASC (LEFTF(VE(I11),,12) 


IF AS>&4 AND AS<91 THEN AS=AS+32:V$( 
11) =CHR$ (AS) +RIGHTFE (VE (11) „LEN(VE (11 
9-1) 

A$=MID$ (V$(12) ,5,1) 

IF A$="-"THEN V$ (29) ="ERAU" 

IF A$="@"THEN V$(20)="EIRMA" 

IF A$="+"THEN V$(28)="HERR" 
A$=LEFT$(VE(12) ,1) 

IF V$(20)="EIRMA"THEN: V$(21)="SEHR G 
EEHRTE DAMEN UND HERREN,":60T0 59588 


52310 IF At="+"THEN 59400 

sa32Q IF Af="—-"THEN 598440 

sa321 IF At="B"THEN 58450 

sa33Q0 IF VvF(2B)="ERAU"THEN V£(21)="SEHR GE 
EHRTE ERAU "+V$(2)+"," 

Sspz40 IF VF£(2B)="HERR"THEN V#+(21)="SEHR GE 
EHRTER HERR "HVEt2)+"," 

3a558 GOTD IBIRR 

SsRa4BB IF VE(2B)="ERAU"THEN VF(21)="LIEBE " 
a IE #5 2 

sg41B IF VE(ZR)="HERR"THEN V$(21)="LIEBER 
ENFELFFRN," 

9428 GOTO 59508 

s245g v£(Z13="HALLDO "+VEt1)+",":G0OTO I95088 

SB4sB VE(Z1I)=VEl1)+",„":GOTO S59500 

SsasBa VE (22)=BAF 

Ssas1B IF V$t28)="EIRMA"THEN VF(23)="HAIT FR 
EUNDLICHEN ERTFEN,”:GOTO 5234808 

Sa528 IF MIDF(V£(12),7,1)="+"THEN V$t235)=" 
ZUSSI,":GOTO 59408 

sa538 IF At="+"THEN VF(235)="B1I5 BALD, ZEIN 

sa54B IF At="F"THEN V&$ (23) =" HOCHACHTUNGSVO 
LL, Li; 

Sa558 IF Af="-"THEN V$(23)="" 

SsaaagB IF At="B"THEN V$(23)="DEIN" 

S5BAaBB IF v$(28)="EIRMA”"THEN V£(24)="NIT FR 
EUNDLICHEN SERTFEN,„"”:GOTO SB408 

sBaza IF MIDF(VS(12),97,1)="+"THEN V$(24)=" 
ZUI5S5S1I,":560T0 59788 

SBs3B IF At="+"THEN V£(24)="BIS BALD, BEIN 
E" 

59540 IF At="F"THEN V£& (24) =" HOCHACHTUNGSVO 
EL; 7) 

sBas5a IF At="—-"THEN VF(24)="" 

SsBAasgB IF AF="B"THEN V$ (24) ="DEINE" 

„97908 REM 

52797 RETURN 

8 64’er 


Der Druckertreiber zu »Hypra-Text« (Schluß) 





<Q&aS3> 
<152? 
<254> 
<2197> 


<1354> 
<167> 
<B45> 


«127? 
<B64> 
<2297> 
<250> 
<B74> 


<B40> 
<151> 
<B12> 


<152> 
<165> 


<xB&a2> 
<B497> 
<150> 
<1477> 
<238> 
<196> 
<121> 
<154> 
<187> 
<a52> 


2277 
<128> 
<Ba907> 
<a52> 
<187> 
<u97B> 


<Ba07> 
<B25> 
226> 
<B597> 


<142> 


<238> 
—aılr 


<1B8> 
<242> 
<825> 
<171> 
<125> 
<141> 
<154> 
<244> 
<235> 
<198> 
<128> 
<x1&6> 
<a55> 
<871> 
<124> 
<897> 
<0537> 
<B37> 


<215> 
<BaB> 
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Bilder aus 
einer anderen 
Dimension 


Kunst aus dem Computer ist auf Groß- 
rechnern im Kommen. Daß es auch 
mit dem C 64 geht, zeigt dieses Pro- 
gramm. 


Mit Hilfe einer einfachen Formel lassen sich die erstaunlich- 
sten Grafiken erzeugen. Das Apfelmännchen, wie man diese 
Grafiken auch bezeichnet, wurde zuerst von dem Mathemati- 
ker Mandelbrot entdeckt. Das Apfelmännchen stellt einen Aus- 
schnitt aus der Ebene der komplexen Zahlen dar. Die mathe- 
matischen Grundlagen dazu werden in Bild 1 erläutert. 
Hinweise zum Abtippen. Tippen Sie das Maschinenpro- 
gramm (Listing 1) mit dem MSE ein und speichern Sie es unter 
dem Namen »APFELROUTINEN«. Dann geben Sie das Basic- 
Programm (Listing 2) mit dem Checksummer ein und spei- 
chern es ebenfalls. Die REM-Zahlen können weggelassen 
werden, da sie im Programm nicht angesprungen werden. 
Nach dem Starten des Basic-Programms wird das Maschinen- 
programm automatisch nachgeladen. Außerdem werden die 
Zeiger für den Beginn der Variablen verändert. Wenn man eine 
Grafik geladen hat und erneut das Basic-Programm speichert, 
wird die Grafik daran angehängt. 
Die Bedienung des Programms 

Vom Menü aus lassen sich folgende Unterpunkte anwählen: 
Neue Werte: Hier können Sie die Grenzen für Realteil (lin- 
ker/rechter Rand) und Imaginärteil (oberer/unterer Rand) der 
Zahlen PR Bild 1) eingeben, die Sie darstellen wollen. Das 


AXmax - Xmin)- /i 159 
iYmax - mann fi 199 
= Xmin 
Ymax 
Für Zeile = 0 bis 199 
Für Spalte = O bis 39 
| Jrür 4 Punkte {= 1 Spalte = 1 Byte) 


- [Tiefe = 0 
Xwert = 0 
xquad = 0. 


Ysert = 0 
Yquad = 0 


Solange (Tiefe kleiner Tiefemax) UND 
(Xquad + Yquad kleiner 8) 


2% wert * Ywert - CY 
xquad - Yquad - x 

- Xwert * Xwert fh 
wert + Ywert 
Tiefe +4 


rreicht ? = 


| Punktfarbe = 0 |Punktfarbe = 
Me S eh (Tiefe MOD 3) + 1 





ex = cX + 2x = 


a4 Punkte setzen 1 Ben 





Bild 2. . Struktogramm des Berechnungs Algorithmus 


80 Jan 


N 


SssER On. 


Ausgangsbild aller Apfelmännchen finden Sie mit den Parame- 
tern: linker Rand —O.7, rechter Rand 2.1, unterer Rand —1, 
oberer Rand 1. Die maximale Tiefe bestimmt, nach wievielen 
Iterationen (Wiederholungen) abgebrochen wird. Es sind Wer- 
te von 5 bis 254 zugelassen. Je größer die Tiefe, desto mehr 
Details treten am Rand der Figur zutage. Beachten Sie aber, 
daß eine große Tiefe auch eine lange Rechenzeit bedeutet. 
Nach Eingabe der Tiefe werden Sie gefragt, ob die fertige Gra- 
fik auf Diskette gespeichert werden soll — zum Beispiel, wenn 
Sie den Computer über Nacht rechnen lassen. Falls Ihnen die 
Werte nicht gefallen sollten, können Sie jetzt noch mit dem 
Linkspfeil ins Menü zurück. Wenn Sie die Grafik speichern las- 
sen, muß ein File-Namen eingegeben werden. Nach der letz- 
ten Eingabe beginnt der Aufbau des Bildes. Das Programm 
kann dann nur noch durch RUN/STOP-RESTORE abgebro- 
chen werden. Natürlich kann eine abgebrochene Berechnung 
nach einem RUN gespeichert werden, zum Beispiel um später 
einen Ausschnitt zu berechnen. Denn statt die Grenzen als 
Zahlen einzugeben, können Sie auch einen Ausschnitt aus ei- 
nem bereits bestehenden Bild berechnen lassen. 
Ausschnitt: Am linken oberen Rand erscheint ein weißes Eck, 
mit dem Sie die linke obere Ecke des neuen Bildes markieren. 
Gesteuert wird es mit den Cursortasten, und fixiert mit der 
Space-Taste. Mit dem rechten unteren Eck wird genauso ver- 
fahren. Der Ausschnitt sollte ungefähr die Form des Bild- 
schirms haben, da sonst die Grafik stark verzerrt wird. Mit der 
Eingabe der maximalen Tiefe geht es dann weiter wie bei der 
Eingabe von neuen Werten. 
Bild ansehen: Unter diesem Menüpunkt können Sie sich eine 
fertige Grafik ansehen. Mit den Funktionstasten können Sie 
die Farben verändern. Zurück ins Menü geht es mit dem Links- 
pfeil. 
TREIBT": Ein fertiges Bild kann auf Diskette gespeichert 
werden. Dabei wird an den Filenamen die Endung ».pic« ange- 
hängt. Zusätzlich werden die Parameter des Bildes mit auf Dis- 
kette abgelegt. 
Laden: Bilder von Diskette können unter Angabe des Namens 
von Diskette geladen werden. Die Endung ».pic« ist dabei nicht 
mitanzugeben. Nach Beendigung des Ladevorgangs werden 
die dem Ausschnitt entsprechenden Parameter angezeigt. 
Directory: Nach Aufruf dieser Funktion wird ein Verzeichnis al- 
ler Bilder, die mit ».pic« enden, auf dem Bildschirm gelistet. 
Effekt: Durch zyklisches Vertauschen der Farbwerte entsteht 
der Eindruck eines bewegten Bildes. Auch hier können Sie die 
Farben mit den Funktionstasten verändern. Ins Menü zurück 
kommt man wieder mit dem Linkspfeil. 
Programmbeschreibung 

Die wesentlichen Routinen sind im Maschinenprogramm 
enthalten, das den Bereich von $C800 bis $CBI1E belegt. Es 
gibt folgende Einsprungadressen: 


Adresse Varia- Routine Funktion der Routine 
ble 

51200 USRIN übergibt Werte an Maschi- 
nenprogramm 

51207 USROUT übergibt Werte an Basic 

51214 M1 MULTION Grafik einschalten 

51217 MO MULTIOFF Grafik ausschalten 

51220 SC SETCOL Farben setzen 

51223 BG BEGIN Berechnen der Grafik 

51226 SA SAVEPIC Bild speichern 

51229 LO LOADPIC Bild laden 

51232 "GL CLRSCR Grafikbildschirm löschen 


Die Adressen der Variablen, die im Assemblerprogramm ver- 
wendet werden, können Sie dem Source-Code (Listing 3) ent- 
nehmen. Für die Aritnmetik des Berechnungsteils werden die 
Routinen des Basic-Interpreters benutzt. Der Berechnunggsteil 
des Maschinenprogramms folgt dem Algorithmus des Strukto- 
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gramms (Bild 2). Das Basic-Programm enthält folgende Unter- 


programme: 
Ab Zeile Funktion 

1000 Eingabe neuer Werte 
2000 Ausschnitt 

3000 Grafik ansehen 
4000 Bild speichern 

5000 Bild laden 

5500 Directory 

7000 Bewegungseffekt 


Die Übergabe der Werte für die Ränder an das Assembler- 
programm erfolgt über die USR-Funktion. Dabei werden die 
Zahlen von Basic aus in den Fließkomma-Akku geschrieben. 


Eine komplexe Zahl besteht aus zwei Zahlen, dem Real- 


und dem Imaginärteil. Bei diesem Programm werden die 
"beiden Anteile durch die X- und Y-Koordinate auf dem Gra- 


fikbildschirm repräsentiert. Das heißt die Koordinaten jedes 
Punktes auf dem Bildschirm stehen für eine komplexe Zahl, 
die im folgenden »C« genannt wird. 
Wie entstehen nun diese fantastischen Grafiken? 

Es beginnt mit der komplexen Zahl O. Davon wird die Zahl 


C abgezogen. Es ergibt sich eine neue komplexe Zahl, die 


jetzt quadriert wird. Vom Ergebnis wird wieder C abgezo- 
gen, dann quadriert und so weiter. Dabei entsteht eine Fol- 
ge von Zahlen, die eine merkwürdige Eigenschaft hat: Für 
manche Werte von © ergibt sich, daß die Elemente der Fol- 


ge immer kleiner werden, bei anderen Werten steigt sie 
schnell an. Dazwischen gibt es aber Werte, bei denen die 


Folge lange unschlüssig hin und her pendelt, bis sie steigt 


oder fällt. Die Farbe eines Punktes auf dem Bildschirm wird 


bestimmt, indem man den dazugehörigen Wert © in die Fol- 
ge einsetzt und so lange immer wieder abzieht URRGhR 
driert, bis die Elemente der Folge eine gewisse Grenze 
überschreiten. Aus der Anzahl der Iterationen ergibt sich 
die Farbe des entsprechenden Punktes. Natürlich muß 
man die Berechnung irgendwann beenden. Das geschieht 


zum einen, wenn die Folge das Grenzkriterium überschrit- 


CHF@ : 
CORG: : 
C988 : 
C9UB : 
CU 
5710: 
C92Z8 : 
EI: 5 
C930 : 
C938 : 
c749 : 
[948 : 
C958 : 
C958 : 
[780 : 
CI68B : 
C9778 : 
CI978 : 
C9BB : 
Ber; 2 
‚19790 : 
C998 : 
[C9AB : 
ECPAB : 
C9BB : 
E7B8 ‘5 
EPER 3 
FRE 8 
EC9D8 = 
E9DB : 
EIER : 
EIEB : 
EC9FB : 
C9F8 : 
LABR : 


FROGRAMM =: AFFELROUTINEN C828 CEiE 


C808 : 48 : 33 
CS818 : CB ac 
C818 : AC CA 
C828 : A4C 2 Ag 
C828 : 808 AD 
CB3R : BO FF 
£C838 : E& Fi 
C848 : 68 23 
cC849 : C8 DA 
CBSR : BA u] 
[8598 : 84 AS 
C85B : A2 E® 
E858 : ZA F4 
C878 : Au AD 
C878 : 26 F4 
CBBB : Ed EC 
C888 : 58 13 
C8982 : Da 18 
C898 : D@ 16 
CBSAB : DE EF 
ECBAB : 27 CA 
C8B@ : 85 AS 
C8ES : AD a4 
CSCB : 85 Di 
C8C8 : EF AS 
CBDB : 18 Ed 
C8ED8 : AS A4 
CBE® 68 AS 
EBES : 6i Au 9D 


Eine kurze Unterroutine speichert die Zahlen dann an ihre rich- 
tige Adresse. Dazu wird von Basic aus direkt in das Maschi- 
nenprogramm die jeweilige Adresse gePOKEt (Variable XI, XA, 
Yl, YA). Auf ähnliche Weise werden auch die Parameter eines 
geladenen Bildes an Basic übergeben. 
Die Demo-Bilder 

Die Demo-Bilder sind auf der Programmservice-Diskette 
enthalten. Sie können diese laden und gleich mit der Erstel- 
lung eines Ausschnitts beginnen. Wir hoffen, daß die Beispiel- 
bilder Sie ein wenig auf den Geschmack gebracht haben und 
wünschen Ihnen viel Spaß auf Ihrer Entdeckungsfahrt durch 
die unendlichen Weiten der Mathematik. 

“ (Gerhard Pehland/oog) 


ten hat, oder wenn die maximale Tiefe erreicht ist. Führt 


man diese Berechnungen für alle Punkte des Bildschirms 


durch, entstehen typische Grafiken (siehe Seite 169). Das 


Struktogramm (Bild 2) zeigt Ihnen den genauen Ablauf und 
die verwendeten Formeln. Die Bedeutung der Variablen 
können Sie dem Source-Code (Listing 3) entnehmen. Ein 


typisches Beispiel ist das Ausgangsbild mit den oben ange- 
gebenen Werten. In der Bildschirmmitte liegen die Werte 


‘von C, bei denen die Folge sofort sinkt. Ganz außen steigt 


die Folge schnell an. Interessant ist die Grenzschicht da- 


zwischen. Hier gibt es die bizarrsten Muster, die Sie mit 
»Ausschnitt« (siehe Text) herausvergrößern können. Bei 


der Vergrößerung zeigt sich eine weitere Eigenschaft die- 


ser Bilder: Am Rande des großen Apfelmännchens sitzen 


nämlich noch unzählige weitere, kleinere Männchen, auf 
denen noch kleinere Figuren sitzen. Diese Eigenschaft 


"wird Selbstähnlichkeit genannt. Aber auch andere Muster 
| tauchen immer wieder auf, mal größer, mal kleiner. 


; „Schluß noch ein Wort zur Rechenzeit: Obwohl die 
(2) Shniungsroutine in Assembler geschrieben ist, muß 


man auf die fertige Grafik manchmal bis zu 8 (acht!) Stun- 
den warten, da ja für 32000 Punkte bis zu 250mal qua- 
| ieh subtrahiert und verglichen wird. 


Bild 1. Die mathematischen Grundlagen 


CTABB : 
CA1B : 
CAISB : 
CAZuB : 2 
CAZB : 
CASB : 
DASB : 
CAD : 
CAAB : 
CAS : 
tASS : 
CASD : 
CAs8B : 
CA7B : 
CA7E : 
CABB : 
CABB : 
CA? 
EAFB : 
CAAB : 
ECARB : 
CABB : 
CABB : 
CACR : 
CLACE : 
CADZ : 
CADE : 
CAEB : 
CAEB : 
CAFB : 
CAFB : 
CEOB : 
CBUB : 
CBRiß : 
CBiß : 


DB 22 Au 
AD 14 D@ 
AD 11 D® 
AD 18 D® 
A? OC OD 
20 DO AY 
78 28 EA 
2D AZ BB 
SQ BB 28 
A2 BZ 20 
AZ 990 Aa 
an AD 3F 
AB 3F 20 
AB C7 20 
2a 12 BB 
D4 BB AU 
408 CF B9 
88 18 Fi 
8D Bi CF 
8D 82 CF 
AD 94 99 
BB 18 F7 
3F CD 84 
4C 37 CA 
A2 BB A9 
BA A2 57 
AF BR AD 
8D AU CF 
AD DB 20 
Bo 20 &7 
98 89 AE 
ac 37 CA 
A2 BB A9 
BA AS 61 
&D AB CF 


Listing 1. Maschinenprogramm zu »Apfelmännchen«. Bitte mit dem MSE eingeben. 
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1D REM KHK HEEREKIRNNERHIRRHHNNNNH BAR > 
15 REM + * <Qö4 > 
22 REM * APFELMAENNCHEN * . <B51> 
30 REM + BY # <134> 
408 REM * GERHARD PEHLAND * <145> 
41 REM * * <a9B> 
43 REM + MARKGRAFENSTR. 64 * <245> 
44 REM * BRRB MUENCHEN B2 * <225> 
45 REM + # <B95> 
5QO REM FREE HHERERRERRHRRK RR 1098 > 
&@ FOKE 5232989,11:POKE 535281,12:PRINT CHRE&( 
14)" <CLR,„BLACHK ,ZDOWN,14SFACE>HOMENT..." <226> 
782 IF A=B THEN A=1:LDAD"AFFELROUTINEN"”,8,1 {1B3> 
72 FOEE 45,18:FOKE 46,65: CLR <215> 
1iB2 C8=2B24: X1I=64: XA=49: YI=74: YA=79: TM=84+3 
*40996+15%#256: BN=49152+1I5#2 I4+160 <812> 
122 M1=51214:M@=M1+3:5C=MQd+3: B5G=SC+3: SA=BG 
+3:1L0=SA+3:C1L=L[.0+3 <168> 
152 CYO=CL+3:C1=C69+1:C2=C1i+r1: CI3=cz+l <163> 
148 FOKE 785,7:F0OKE 7865,C8:REM USRVEKTOR <18B> 
158 VvC=-53248 -B99> 
151 FOEE 51288,XI:LI=USR (8) <145> 
152 FOKE 51289,XA:RE=USR (8) <B82> 
152 FOKE 512288,YI1:UN=USR (9) <197B> 
154 FOEE 51288,YA:DE=USR (8) <197> 
155: POKE 705,8 <254>. 
152 FOR I=832 TO BYIA:READ X:POKE I,X:NEXT <244> 
178 FOR I=89& TO 9758B:READ X:FOKE I,„X:NEXT <148B> 
282 FRINT" ZCLR,ZDOWNF"TAB(1B)"##%## MENUR # 
+" <«B15> 
28 FRINT" {PDOWNF"TAB(1B)" (1) T2SFPACE}INEUE 
RERTE- ’ <183> 
24B FRINT" {DOWN}"TAB(1B) " (2) {2SPACEFAUSSCH 
NITT" 1973 
z2&B FRINT" {DOWNF"TAB(1B) " (3) {2SFPACE>BILD A 
NSEHEN" ‚  zI832 
288 FRINT" {DOWN}"TAB(1B)" (4) (2SPACE}YSPEICH 
ERN <140> 
3828 FRINT" {DOWNF"TAB(1B) " (5) SZSFACEF}LADEN" <94B> 
12 FRINT" {DOWN}"TAB (18) " (&) {2SFACE}DIRECT 
ORY <B75> 
215 FRINT" {DOWN}" TAB (18) " (7) TZSPACE}EFFEKT 71957> 
328 PRINT" {3DOWN}"TAB(1B) "MAS DARFS SEINEN © 
SFACE3T" 141> 
AB GET At: IF Ar<"1" DR Ar>"7" THEN 348 <Q14> 
=öB ON YAL(AF) GOSUB 1202 ,2000,20209,4008,5 
202 ,3702 , 79002 - 2347 
>89 GOTO 288 <Bäa2> 
998 REM NEUE WERTE <242> 
12888 FRINT" {CLR,DOWN}###* NEUE{ISHIFT-SPACE} 
HERTE *#*# {DOWN}" <B8l> 
1328 INFUT" {DDOWN}LINKER RAND {2SFACE}"sLI 2475 
18348 INFUT"” {DOWN}>RECHTER RAND ":RE <B72> 
1952 INFUT" {DOWN>UNTERER RAND "UN <212> 
18282 INFUT" <DOWNFOBERER RAND {2SPACE}";OB <B&3> 
1188 INPUT" <2DOWN>HAXIMALE TIEFE ";TM% <9B72> 
111 IF TMZ<ES OR TMZ>254 THEN 1102 “2517 
1128 PRINT" {DOWN}EERTIGES BILD SPEICHERN 7? 
u <8397> 
1138 GET Af:IF At<>"J"AND A$t<>"N"AND Atı-" 
+-"THEN 11350 <1B6> 
1135 IF Af="e-"THEN RETURN <QB41> 
1142 FRINT At:IF At="J"THEN INFUT"” {DOWN}>NA 
ME: BES TZILDES ":NB8 <193> 
1141 SYS:  CL:FOKE 51291,XI1:US=USR (LI) <B4AB > 
1142 FOKE 51281 ,XA:US=USR (RE) <164> 
1143 FOKE S51281,Yl1:US=USR (UN) «241> 
1144 FOKE 512801 ,YA:US=USR (OB) <150> 
1145 FOKE TM,TM%A <184> 
115@ SYS EG <134> 
11&5Q IF A#="J"THEN 4028 <248> 
1288 RETURN <242> 
1778 REM AUSSCHNITT B&4 > 
zuBBB PRINT" {CLR,DOWN?*#* AUSSCHNITT ##%#" <1976> 
2825 FRINT" {DOWN>BEWEGUNG MIT LURSORTASTEN 
ee Ss2L7 7 
2B1B FRINT" {DOWN>HARKIEREN MIT ZSPACE>" <B3537 
2815 PRINT" {DOWN>ZURUECK MIT ’e'’" <11B> 
2217 PRINT" {DOWN>HEITER MIT IASTE" <B11> 
ZuBZB FOKE 198,8:WAIT 198,1:GET A# <1646> 
zB3B DX={RE-LI) 7319: DY=(0OB-UN) 7199 <B34> 
-ZuB40 SYS Mi:FOKE Z9849,13:FOKE 2941,14 1237 
ZBIB FX=24:PY=582 848} 
2B&8 POKE VCE,PX:FOKE VC+1,FY <a93> 
2078 FOKE VC+397,1:POEE VC+4Q,1 054 > 


2u88 
2078 
2095 
21880 


2118 


2138 


23382 


2542 
2350 


2408 


FPOEE VC+21,1:Qt="" 

GET At: IF At=""THEN 29898 

IF A$=DOFTHEN SP=3 

IF Af="e"THEN POKE VC+21,28:5YS M@:RET 
URN 

IF Af="<{DOWN>"AND PY<249 THEN PY=PY+S5 
F:GDTO 2188 

IF Af=" <UP>"AND FY>58 THEN PY=PY-SP:G 
DTO 2168 

IF Af="{RIGHT}"AND FX2242 THEN PX=PX+ 
SF:GOTO 2168 

IF Af="ÄLEFTY"AND PX>24 THEN PX=PX-SrF 
:G0TO 2168 

IF Af=" "THEN 2258 

IF PX<256 THEN FOKE VC„FX:FOKE VC+16, 
8:60T0 Z218 4 

FOFE VCE,PX-254:POKE VCE+r16,1 

FOKE VC+1,FY 

or=AF:SFP=1: IF PEEK(198)=8 THEN DF="" 
GOTO 2878 

IX=FX: IY=PY 

PX=328:PY=229:5P=1 

FOKE VCE+2,PX-256:FOKE VC+16&,FEEK (VC+1 
&)0R 2:POKE VCE+3,PY:POKE VCE+H21,3:Q0$=" 
GET A#: IF Af=""THEN 
IF At=D+ETHEN SP=3 
IF Af="e"THEN POKE VC+21,98:5Y5S M@:RET 
URN : 

IF At=" iDOWN}"AND PY<2297 THEN PY=PY+S5 
P:G0OTO 23580 

IF At="{uUPF}"AND FY>IY-18 THEN PY=FY-S 
F:GOTO 2358 

IF A#f=" {RIGHT}"AND FX<322 THEN FX=PX+ 
SP:GOTO 2358 

IF At=" {LEFT}"AND PX>IX-2@ THEN FX=PX 
-5P:60T0: 2538 

IF At=" "THEN 2448 

IF FPX<255 THEN FOKE VC+2,FX:FOKE VC+1 
ö,„PEEHK(VC+16) AND 1:G0T0O 2418 

FOKE VC+2,FX-256:POEE VC+16,„PEEK (VC+1 
&}YDR 2 


2288 


BF OKE VC+H3,PY 


2415 
2420 
2440 
2450 
2460 
2470 
2520 
25352 
2549 
2558 
2568 
2578 
2582 
29982 
3200 
zg10 
3028 
3023 
3030 
3042 
3252 
>BS5 
20620 


>07 
3288 
3270 


3108 
39798 
4008 
4210 
4020 
4050 
4240 
4252 
42 
4270 
4290 
40970 


O+=A$:SP=1:IF PEEK(198)=B THEN QF="" 
GOTO 2788 

RE=LI+tPX-1)*DX 

LI=LI+(IX-24)#DX 

UN=OB- (PY-3B) #DY 

OB=0B- (1IY-SB)#DY 

FOKE VC+21,8:5Y5 M@ 

PRINT" {CLR,DOWN}*** AUSSCHNITT #*%*" 
PRINT" {DOWN}LINKER RAND{2SPACE}=";LI 
PRINT" {DOWN}RECHTER RAND :":RE 

PRINT" {DOWN}UNTERER RAND =:";UN 

PRINT" £{DOWN}OBERER RAND {?SPACE}: ";OR 
50T0 1198 

REM ANSEHEN 

PRINT" {CLR,DOWN}*** ANSEHEN ##*" 
FRINT" {DOWN}FARBEN = FUNKTIONSTASTEN" 
PRINT" {DOWN}ZURUECK MIT ’*’" 

PRINT" {DOWN}HEITER MIT IASTE" 

POEE 198,8:WAIT 198,1:GET Af 

SyS Mi 

GET At:IF A$=""THEN 3250 

IF At="e" THEN SYS MO:RETURN 

IF Af="{F1}>"THEN POEE C8,(PEEK(CB)+1) 
AND 15:5YS SC 

IF Af="{iF3}"THEN FOKE Ci,{FEEK(C1)+1) 
AND 15:5YS SC 

IF At="{iF5}>"THEN FOKE C2,(FEEK(C2) +1) 
AND 15:5YS5 SC 

IF At="{iF73"THEN FOKE C3,(PEEK (CZ) +1) 
AND 15:5Y5 SE 


GOTO 3258 
REM SPEICHERN 
PRINT" {CLR,DOWN}*** SPEICHERN x*%*" 


INFUT" {DOWN}NAME DES BILDES";NB# 

IF LEN{NB£) >12? THEN NB$=LEFT$ (NB£,1?) 
NE&=NB$+". PIC" 

FOR I=2Q TO LEN(NBS)-1 

POKE BN+I,ASC (MID (NB$,I+1,1)) 

NEXT 

FOKE EN+165,LEN(NB#) 

Sys 5A 

OPEN 1,8,15: INPUT#1,A,B#,C,D:CLOSE 1 


<254> 
<143> 
2205> 


<144> 
<088> 
<009 > 
<157> 


<178> 
z0853> 


<222> 
<194> 
<175> 
<105> 
<174> 
<241> 
<246> 


057? 
8775 


<137> 
<«B78> 
<B67> 
<118> 
<209> 


<1697> 
<B30> 


-871> 


<2457> 
<249> 
<B4&> 
<115> 
2853? 
<947> 
<B71> 
<233> 
<“233> 
<218> 
<196> 
<205> 
<185> 
<125> 
u 
<176> 
<B75> 
<Q98> 
899} 
«291 > 
<1650> 
“237> 


<115> 
«Q78> 


x188> 
<xs@971> 
z2ol> 


2154 > 
2168: 
<185> 
EL? 
<B85} 
245° 
244: 
<178> 
<8197> 
294: 
<2053?> 
354 > 
<B2&6> 


Listing 2. Den Basic-Teil geben Sie mit dem Checksummer ein. Beachten Sie dazu die Hinweise auf Seite 54. 
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PRINT" {DOWN}";A;B$ 

WAIT 198,1:FOKE 198,8: RETURN 
REM LADEN 

PRINT" £{CLR,DOWN}#*** LADEN »x%*" 


INFUT" {DOWN>NAME DES BILDES";NB# 


IF LEN(NB$) >12 THEN NBF=LEFT# (NB#,12) 


NB$=NB$+".FIC" 

FOR I=2 TO LEN(NB$)-1 

POKE BN+I ,ASC (MID$ (NE$,I+1,1)) 
NEXT 


<175> 
“243> 
“889 
-Q81> 
@70> 
2297 
228> 
162> 
005> 
“244 > 


F$=F$+X$ 
NEXT 


IF RIGHTF(F$,4)=".FIC"THEN PRINT F# 


NEXT 

IF TTs>@B THEN 5538 

ELOSE 15:CL0OSE 18 

WAIT 1978,1:POKE 1978,8:RETURN 
REM SPRITES 


DATA 255, 255,255,192,8,8,172,08,8,192, 


2,8 


<B82> 
x194> 
<112> 
<BDOB> 
<B15> 
<B7S5> 
<B44> 


<232> 


FPOKE BN+16,LEN({NB#) 

SYS LO 

OFEN 1,8,15: INPUT#1,A,B#,C,D:CLOSE 1 
PRINT" {DDWN}"z A; B# 


1897} 
<2B6> 
<218> 
<155> 


DATA 
DATA 


192,0,8,192,0,8,192,8,0,192,0,0 
192,0,0,192,0,0,192,8,0,192,0,8 
DATA 192,90,8,192,0,8,192,8,80,192,0,8 
DATA 192,0,8,192,0,0,192,8,0,192,8,0, 


<B28> 
<a5B> 
<840> 


POEE 785,7 
FOKE 51298,XI:LI=USR(®) 


FRINT" {DOWN}LINKER RAND {2SFACE}= ";LI 


FOKE 512@8,XA:RE=USR (B) 
PRINT" {DOWN} RECHTER RAND :";RE 
POKE 51288,YI:UN=USR (8) 
PRINT" <{DOWN}UNTERER RAND ="zUN 
POKE 51298,YA:0OB=USR (8) 


FRINT" {DOWNFOBERER RAND {2SPACE}: ";0B 


TMZ=FPEEK .(TM) 


PRINT" £DOWN}HAXIMALE LIEFE: "; TM% 
POKE 198,0:WAIT 198,1:FOKE 198,8 


FOEE 785,8: RETURN 
REM DIRECTORY 


<002> 
«234 > 
s158> 
<246> 
<@11> 
<125> 
<2355> 
143> 
206: 
@49> 
-086> 
<2453> 
“889 
20977 


192,0,8 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 255,255,255 
REM EFFEKT 


AA KA A 


PRINT" {CLR,DOWN}#**#* EFFEKT xx" 
PRINT" {DOWNFEARBEN = EUNKTIONSTASTEN" 


PRINT" {DDOWN}ZURUECK MIT '*"" 
PRINT" {DOWN>HEITER MIT IASTE" 
FOKE 178,8:WAIT 198,1:GET Af 
SYS Mi 


<245> 
xB47> 
<a57> 
<B67> 
<a77> 
<B87?> 
<161> 
<B78> 
<842> 
<B54> 
<8355> 
<195> 
<a96> 
<1753> 


PRINT" {CLR,DOWN}*** DIRECTORY *** {DOW 
N} [13 

POKE 198,@:0PEN 15,8,15,"I@":OPEN :1@, 
8,2, u 

TT=18:58=1 

PRINT#15,"B-R";2;0; TT;SS 
PRINT#15,"B-P";25@ 

GET#1@,X$: IF X#=""THEN X#=CHR$ (BO) 
TT=ASC (X$) 

GET#1@,X$: IF X$=""THEN X$=CHR$ (8) 
SS=ASC (X$) 

FOR Bi=@ TO 7 
PRINT#15,"B-P":2;01*32+5 

F£= u a 

FOR @2=@ TO 15 

GET#1Q,X$: IF X$=""THEN X$=CHR$ (B) 

IF ASC(X$)=168 THEN 02=16:60T0 5648 


IF Ar="iF5}"THEN POKE C2,(FEEK(C2)+1) 
AND 15 

EF=FEEK (C5) :POKE C35,PEEK(C2):POKE CZ, 
PEEK(CIYISFOKE C1,CP 

GET At: IF Af="+-"THEN 7148 

IF A$="{F1}>"THEN POKE CB, (PEEK (CD) +1) 
AND 15 

IF At=" {FSY"THEN FOKE Ci,(FEEK(C1)+1) 
AND 15 

IF A$=" iF5>"THEN FOKE C2,„(PEEK(C2) +1) 
AND 15 

IF At="{F7}"THEN POKE C3,(PEEK(C3)+1) 
AND 15 

SYS SC 

=7TO 7068 
71408 SYS MB:RETURN 
8 64’er 


<065> <034> 
<054> 
<117> 
<976> 
<254> 
<029> 
<132> 
<Q49> 
<140> 
<142> 
<156> 
<B69> 
SUSE 
<109> 
<@71> 


<0997> 
<137> 


<823> 
<182> 
<094> 
<245?> 
<878> 


<196> 
<235> 





Listing 2. (Schluß) 





.OPT Pi JMP BEGIN 1 cCPx ZEIGI+I 
;*%#%* SYSTEMADRESSEN %%#%* JMP SAVEPIC BNE L2 
viIc, e 53248 ;VIDEOCHIF JIMP LOADPIC RTS 
FAC = 97 ;FLIESSKOMMA-AKKU JIMP  CLRSCR 
ARG = 105 ;FLIESSKOMMA-AKKU #2 coLo .BYT © ;FARBEN 
CHROUT = SFFD2 ;EIN ZEICHEN AUSGEBEN coLi BT 2 MULTION LDA VIC+17 zMULTICOLOUR EIN 
DIv = SBBI2 ;FAC=ARG/FAC coL2 .BYT 10 ORA #%00100000 
SUB - sB853 ;FAC=ARG-FAC cOL3 .BYT 2 STA VvIC+1? 
BYTENFAC = 5B3A2 ;BYTE IN Y NACH FAC CLRSCR LDA #0 :GRAFIK LOESCHEN LDA VIc+24 
FACNARG = SBCOC ;ARG=FAC Sta zEIGL ORA #%00001000 
ZEIGSUB = SB850 ;SFAC=(A/Y)I-FAC LDA #820 STA VIC+24 
ZEIGADDT = $B84? IFAC=tA/YI+FAC STA ZEIGI+1 LDA VIC+22 
ZEIGMULT = $BA28 ;FAC=(A/YIKFAC LDY »0 - ORA #%00010000 
KONNARG = $SPASC ;ARG={A/Y) Li LDA #o STA VIC+22 
KONNFAC = $BBA2 ;3FAC=(A/Y) STA ItZEIGI),Y JISR SETCOL 
FACNHKON = $BBD4 EIXINDI=FAC INY RTS 
CHSIGN = $BFB4 ;FAC=-FAC BNE Li SETBYTE : LDA ZEILE ;4 PUNKTE (=1 BYTE) SETZEN 
FILEPAR = SFFBA ;FILEPARANMETER SETZEN INC ZEIGI+1 AND #%11111000 
FILENAN = SFFBD ;FILENAME UEBERGEBEN LDA #840 LSR A 
SAVE = SFFD8 ; SPEICHERN CMmMP ZEIGI+1 LSR A 
LOAD = SFFDS ;LADEN BNE Li TAX 
it%* VARIABLE *%*%* RTS LDA ZEILTAB,xX 
ZEISI = sAa ;UNIVERSALZEIGER STA ZEIGI 
ZEIG2 = SA& INX 
ZEILE - SCFOO AKTUELLE ZEILE SETCOL LDA WO ;FARBEN SETZEN LDA ZEILTAB,xX 
SPALTE = ScFoi AKTUELLE SPALTE STA 53280 STA ZEIGI1»1 
BYTE = SCFo2 ;ENTHAELT IMMER 4 PUNKTE LDA coLo LDA ZEILE 
Pos = SCFO3 ;ZAEHLER FUER 4 PUNKTE {0 Bls 3) STA 53281 AND #%00000111 
TIEFE - SscFoa ;AKTUELLE TIEFE LDA COL1i cLc 
TIEFEMAX = $3F54 ;MAXIMALE TIEFE ASL A ADC ZEIGI 
DX - SCF90 ;SCHRITTWEITE REALTEIL ASL A STA ZEIGI 
DY = SCF30 ;SCHRITTWEITE IMAGINAERTEIL ASL A PCC SETBYTI 
cx = SCF40 ;REALTEIL AKTUELLER BILDSCHIRMFUNKT ASL A INC ZEIGI+1 
CY = SCF&0 ;DTO. IMAGINAER ORA cCOoL2 SETBYTI LDA SPALTE 
xQUAD = 87 SYWERTEXWERT ; LDx #0 ASL A 
YQUAD . 247 3; YWERT#YWERT STX ZEIGI ASL A 
XWERT = SCF?O0 ;MOMENTANER WERT DER FOLGE REALTEIL STX ZEIG2 Aa: A 
YWERT = SCF80 ;DTO. IMAGINAER LDx #4 BCC SETBYTZ 
xMAX - SIF45 ;RECHTER RAND STxX ZEIGI+! INC ZEIGIH 
xMIN = $S3F40  ;LINKER RAND LDX #%D8 SETEYTZ CLC 
YMAX = SIF4F OBERER RAND STX ZEIG2+i ADC ZEIGI 
YMIN = SIF4A ;UNTERER RAND WAIT LDX VIC+18 ;WARTEN AUF STRAHLDURCHLAUF STA ZEIGI 
FILENAME = SCFAO VON BASIC GEPOKED CPX #58 BCC SETBYT2 
FARBTAB = SCEOO ;TABELLE TIEFE MOD 3 +1 BNE WAIT INC ZEIG1+1 
; LDX VvIc+17 SETBYT2 LDY #0 
;i*t# PROGRAMM #*+ BMI WAIT LDA BYTE 
*=  2C800 LDY #0 STA tZEIGI),Y 
USRIN LDX #<XMIN jUEBERGABE DER REALZAHLEN VON BASIC LDx #86 RTS 
LDY #>XMIN L2 STA tZEIGI),Y 
JMF  FACNKON PHA FACSARG LDA ARG+HSS5VORZEICHENVERGLEICH VON FAC UND ARG 
USROUT LDA #<XMIN ;REALZAHLEN AN BASIC ZURUECK LDA COLS EIR FAC+5 
LDY #>XMIN r STA (tZEIG2),Y STA ARG+ö 
JMP KONNFAC PLA LDA FAC 
;SPRUNGTABELLE INnY RTS 
JMP MULTION BNE L2 
JMP_ MULTIOFF INC ZEIG1+1 
JIMP_ SETCOL INC ZEIG2+1 MAKETAB LDX #0 ;FARBTABELLE ANLEGEN 


Listing 3. Das Source-Code-Listing des Apfelmännchens 
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RTS 


MULTIOFF LDA 
STA 
LDA 
AND 
STA 
LDA 
AND 
STA 
LDA 
5TA 
LLA 
STA 
LDA 
JISR 
RTS 


SEI 
ISR 
LDA 
LDY 
JSR 


APFEL 


LDA 
LDY 
JISR 
JISR 
LDY 
JSR 
JSR 
JISR 
LDX 
LDY 
I5R 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
JSR 
LDY 
JSR 
JSF 
JISR 
LDX 
LDY 
JER 
LDY 
LDA 
STA 
LDA 
5TA 
DEY 
EPL 
LDA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDY 


1TERAT 


ITERATI 


#1 L1iS 


FARBTAB,X 


#4 ITERI 
MTi 
Hi 


L409 


ITER4 


vic+22 ;MULTICOLOUR AUS 
4411101111 
VvIC+22 
vVIC+17? 
#%1101111i 
vIc+1? 
vICc+24 
#%11110111 
vIc+24 

#12 

53281 

#11 

532850 

#147? 
CHROUT 


;BERECHNUNG DER GRAFIK 
MAKETAB 
#<XMIN 
H>XMIN 
KONNFAC 
KCXMAX 
#>XMAY 
ZEIGSUB 
FACNARG 
#159 
BYTENFAC 
FACSARG 
Div 
#<DX 
#>Dx 
FACNKCN 
#<YMIN 
#>YMIN 
KONNFAC 
HCYMAX 
H>YMAX 
ZEIGSUB 
FACNARG 
#199 
BYTENFAC 
FACSARG 
DIV 
#<DY 
#>DY 
FACNKON 
#4 SCX=XMIN CY=YMax 
XMIN,Y - 
cx,Y 
YMAX,Y 
cY,Y 


; DX= (XMAX-xMIN: /1SF 


ITERS 


; DY=(YMAX-YMIN) /199 
ITER2 


L13 

#0 
ZEILE 
SPALTE 
POS 

KO 
BYTE 
#0 
TIEFE 
*4 


PLOT 


STA XWERT,Y LDY #>DxX 
STA YWERT,Y JISR ZEIGADD 
DEY LDX #c<cx 
BPL L1i5 LDY #>C0X 
INC TIEFE JISR FACNKON 
LDA TIEFEMAX INC POS 
CMP TIEFE "MAXIMALE TIEFE ? LDA POS 
BCS ITERaA AND #3 
LnaA #0 ; PUNKTFARBE BEJ APFELI 
JIMP PLOT JMP ITERATi 
LDA #<iXWERT :XQUAD= XWERT * XWERT APFELI STA POS 
LDY #>XWERT JISR SETBYTE 
JSR KONNFAC INC SPALTE 
LDA #7XWERT LDA SPALTE 
LDY #>XWERT cCMP #40 
ISR ZEIGMULT BEQ APFEL2 \ 
LDX #X@UAD JIMP  ITERAT s 
LDY #0 APFEL2 LDA #0 
JISR FACNKON STA SPALTE 
LDA #<YWERT }Y@UAD= YWERT * YWERT LDY #5 5SCX=XMIN 
LDY #>YWERT L30 LDA xXMIN,Y 
JSR KONNFAC STA Cx,Y 
LDA #<YWERT DEY 
LDY #>YWERT BPL L3O0 
JSR ZEIGMULT INC ZEILE 
LDX #Y@auAD LDA ZEILE 
LDY #0 cCmHP_ #200 
JSR FACNKON BE@ ENDAPFEL 
LDA #X@UAD LDA #<DY ;SCY=CY-DY 
LDY #0 ;SUMME XQUAD+YQUAD LDY #>Dy 
JSR ZEIGADD JSR KONNFAC 
LDA FAC LDA #<cr 
CMHP #384 $"SUMME GROESSER 8 ? LDY #>CY 
BCC ITER3 JSE ZEIGSUB 
LDX TIEFE LDX #<CY 
LDA FARRTAB,X ;PUNKTFARBE LDY #)>cY 
JMP PLOT JISR FACNKON 
LDA #<YWERT ;YWERT=XWERTXYWERT#2-CY JMP  ITERAT 
LDY #>YWERT ENDAPFEL CLI 
JSR KONNFAC RTS 
KERN) RRERERNNENT BEGIN JISR MULTION 
LDY #>XWERT a 
ISR ZEIGMULT ‚ , 
LDA FAc JMP MULTIOFF 
BES -ITER2 SAVEPIC LDX #8 ; SPEICHERN 
INC FAC JSR FILEPAR 
LDA #<CY LDA FILENAME+16 
LDY #CW LDX #<FILENAME 
JSR  ZEIGSUB LDY #>FILENAME 
JSR  CHSIGN JISR FILENAM 
LDX #<YWERT LDA #0 
LDY #>YWERT STA ZEIGI 
JSR FACNKON LDA #$s20 
LDY #0 ;iXWERT=XQUAD - YQUAD-CA SsTa ZEIG +1 
LDA #YauAaD LDA #ZEISIL 
JSR KONNFAC LDx 4556 
LDY #0 LDY #s3f 
LDA #SXGUAD JIMP SAVE 
ar en LOADPIC LDxX #8 ;LADEN 
N LDY #1 f 
a ln JISR FILEPAR 
LDA FILENAME+1& 
ISR CHSIGN 
LDX #<FILENAME 
LDX M#CXWERT LDY M>FILENAME 
grem--anLINgE> 8 JISR FILENAM 
SR FACNKO . 
LDA #0 jr 
JMP ITERI zn UoRn 
ASL BYTE a 
ASL BYTE 
ORA BYTE ;TABELLE DER ZEILENANFAENGE 
sTA BYTE ZEILTAB .WOR 8192,8512,8832,9152,9472,9792 
LDA #<Ccx ICX=CX+DH -WOR 10112,10432,10752,11072,11392,11712 
LDY #>CX .WOR 12032, 12352,53180,12992,13312, 13632 
JSR KONNFAC .WOR 13952, 14272, 14592,14912, 15232, 15552 
LDA H<DX .WOR 15872 


Listing 3. (Schluß) 





Block Out 





Eine besondere Version des bekannten »Break Out« liegt Ihnen mit diesem 
Spiel vor, bei der Sie gleich auch die Trainer-Pokes bekommen. 


Bei Block-Out geht es darum, einen Ball mit einem Schläger 
möglichst oft zu reflektieren, um sechs Reihen von Ziegelstei- 
nen zu löschen. Dabei gibt es für jeden Stein der untersten 
zwei Reihen einen Punkt, für jeden Stein der mittleren zwei Rei- 
hen zwei Punkte und für jeden Stein der obersten zwei Reihen 
drei Punkte. Zusätzlich erhält man einen Bonus von 22 Punk- 
ten für einen total abgeräumten Level. Vor dem Spiel kann man 
den Startlevel sowie die Ballzahl mittels F3 und F5 einstellen. 
Mit Fi oder Druck auf den Feuerknopf des Joysticks (Port 2) 
beginnt das Spiel. Während des Spiels besteht die Möglich- 
keit, durch Drücken einer Taste den Ablauf zu unterbrechen. 
Ein weiterer Tastendruck oder der Feuerknopf heben die Pau- 


se wieder auf. 
Wem die Geschwindigkeiten der Level nicht angenehm sind, 
muß nicht verzweifeln, sondern kann die Konstanten in den 
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mitteln greifen: 
poke 3163,234: 
poke3218,12 

poke 4096,Ballzahl 
poke 3850,12: 
poke 3853,12 


Speicherstellen 4124 bis 4132 verändern, wobei ein hoher 
gePOKEter Wert ein langsames Spiel bedeutet. Möglich sind 
Werte zwischen 6 und 255; spielerisch interessant sind aber 
nur Werte zwischen 8 und 50. Wer selbst bei langsamer Ge- 
schwindigkeit noch Probleme hat, mit den vorhandenen neun 
Bällen einen Level abzuräumen, der kann zu folgenden Hilfs- 


verhilft zu unendlich vielen Bällen 
verhilft zu endlich vielen Bällen 


verhindert, daß das Spiel schneller 
wird, wenn ein Level abgeräumt ist. 


(Roland Lieger/og) 
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FROGRAMM : BLÜCK# 


BBB1 : 26 88 Ci 87 
0809 : 38 5A 12 42 
BB11 : AB 4F 55 54 
QBi9 : 28 52 AF AC 
0821 : 45 47 45 52 
0829 ::8@ ED 28 Da 
8831 : 15 DB A9 EA 
0839 : 15 83 8E 14 
8841 : 8D 18 DD A9 
0849 ı A9 B1 8D 86 
0851 : A9 OF 85 D3 
@857 : BB BD 25 18 
2861 : @D DB 19 A9 
0869 : A? BC 85 DS 
8871 : ES A& FB E8 
0879 : A2 BB BD 82 
0881 : ES EB 34 DB 
2887 : 2@ BE OF 8D 
28891 : B&4 AD D7 OF 
08997 : SB B& SC SC 
B8A1 : 22 BE BF SC 
B8A9 : BF 28 BE OF 
Q8B1 : 7C 86 AD EB 
0869 : 8D 797 B6 SC 
BSC1 : BF 22 BE BF 
0809 : EA OF 18 69 
Q8D1 : AD ES BF ı8 
B8D9 : 85 AD F4 OF 
BBE1 : SD 57 05 A9 
BSEF : AF 28 8D 59 
a3aF1 : 18 D4 AC 88 
BSFF : 57 05 AI 06 
0981 : 59 85 A? 90 
29907 : 00 85 C& AD 
@B911 : FO FF AS CA 
2719 : DC 29 18 F@ 
0921 : A5 C5 C9 83 
02929 : F® 41 C9 05 
08931 : DB D5 AE E5 
0939 : B2 A2 81 EB 
8941 : 18 69 2F 8D 
09549 : B9 AE E4 OF 
0951 : A2 BB ES SE 
0959 : 69 3@ 8D B8 
0961 : AD F4 UF 49 
0969 : A4C DA 08 28 
0971 : 85 C6& AS C6 
0979 : 85 C6 78 A2 
0981 : 9D 68 86 CA 
0989 : BD 84 D4 20 
2991 : D®B 97 AD 28 
8999 : F2 58 A9 20 
B9A1 : 6B B6& BD &C 
B9AF : BD 69 BA AC 
2961 : A2 BB 78 8D 
0967 : 83 58 28 44 
09C1 : 88 DA A9 22 
09C9 : FO 8D 96 DA 
@9D1 : DA A9 D1 A2 
@9D9 : CA 18 FA A2 
B9E1 : FD DR BA CA 
BI9E? : BF SD 1A 94 
B9F1 : 1B 384 AD EC 
BFF? : AD E7 OF 20 
BAB1 : 94 8C 22 94 
DAB? : BE @F 8D iF 
@Alil : AD E9? OF 28 
BA1F : 84 AD E4 OF 
BA21 : 27 84 A? 00 
BA29 : 83 CA DB FA 
BA31 : 9D 72 983 CA 
BA39 : 8D 81 983 8D 
. BA41 : SD 84 83 8D 
BA49 : 85 8D 8D a3 
BAS1 : 87 A9 OD SD 
DAS? : 8D 15 DB A9 
DAsi : BD 1B DO 8D 
BA6&? : DO AC 2C QB 
BA71 : 9D 27 84 A9 
BA7?F : CA DB F3 AP 
BABS1 : AI 6E 8D 4AF 
BAB? : FC AY 50 85 
BAF1 : B4 85 FE A2 
DA9? : 42 91 FD A9 
BAA1 : 27 F1 FB A9 
BAA9 : FB 18 49 28 
BABI1 : AS FC 67 88 
BABF : D4 85 FE CA 
BAC1 : 85 FC A? 94 
BAC? : 85 FB 85 FD 
@AD1 : A9 DB 91 FD 
BAD? : FB 88 91 FB 
BAE1 : 88 DO ED #5 
BAE9 : 85 FB 85 FD 
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2821 11BE 
3B 38 29 
43 4B @E 
43 29 E6 
ac 49 7F 
20 A9 F9 
Da 8D 52° 
78 8D 27 
AP 15 Ba 
91 02 02 
44 ES #5 
ES A2 AQ 
FF C9 AF 
D2 FF &D 
2a 66 96 
DB Ei CA 
D2 FF 38 
Ds @F 47 
SC SE 73 
BF SD 95 
Ds or F5 
AD E7: D2 
B4 SC 40 
BE @oF CA 
AD EI 78 
B& AD 72 
B8 84 C2 
8D 28 SE 
A9 BF SE 
58 05 49 
ar 8D 12 
OF 8D BD 
05 8D C9 
D4 A9 87 
27 ı8 DF 
AD 2a 54 
13 089 52 
c9 84 8C 
C9 86 ES 
BA DO 16 
OF BA 53 
4C 08 75 
DB a2 &2 
8A 18 280 
a8 09 2A 
FA BF E4 
AF a0 12 
A? a0 39 
B5S ı1 0B 
A9? 282 Ei 
AS C6 45 
ia Da 49 
06 SD 85 
&D a4 BF 
AF ZE 58 
SE 15 646 
CF 8D 7F 
D4 A9 61 
8D 85 77 
ea Ds 2@ 
FS OF 094 
AD EA 26 
OF SD 57 
IC 84 ED 
8D 21 SF 
OF 28 F3 
20 B4 C3 
SC 1E 4E 
30 8D B8 
9D SF D8 
AZ 89 SC 
A9 3C 25 
A? 7E BE 
Sp BA S5F 
8D F9 BC 
A9 03 96 
17 DB 45 
8D iD 1A 
A9F 40 SE 
27 DB 23 
28 84 F? 
DS 85 AB 
FD A9 56 
BB A9 36 
FB AB 26 
FD AS B7 
85 FD 5A 
38 E9 24 
A? DB 8D 
AF CB 38 
AB 26 SE 
BF 91 B9 
91 FD 9 
67.28, .78 
69 aa 75 


u. m 0 U mE A HE HE a de HE mE u HE EM EEE EEE a ET EM EEE ET Er EEE HE En an .. #6 nu DE TU HR au HE u HT EEE HE HH HE HE HE HE KR HE He HE KU HE a ME 7 HE DEE mE a an ne 
’ 


58 E? D4 85 FE 
A? 72 8D ED UF 
BD 1iB 18 8D 385 
21 8D 27 DO 8D 
DC SD Bi DB AP 
DB A? 17 8D 82 
8D 85 DB A? 80 
&8 A2 BA BD D? 
BF CA 18 F7 20 
BA BB 68 AY 20 
AD iE DB FO 83 
AD iF Da FB 853 
AD BB DE C9 FF 
29 84 DO 22 AC 
Sc BR DB AD 18 
Fa BA CB FF DO 
DD A4C AS BB Ca 
EE 838 DB AC A5 
88 DB iF AC B8 
B0a DB AD 18 DO 
on CD 902 DO BD 
4C AS 8B CB SC 
o0a DB CE D2 BF 
BB 8D DA BF AD 
D2 @F AD CE BF 
B2 DB 88 BC 22 
Do 27 82 FB 18 
4C AD 18 DB 58 
18 DQ AC 18 BC 
sc EE @2 DB AY 
OF A? 21 8D 24 
ac AC 92 DO C8 
AD 18 DQ 29 22 
808 DB iA EE 18 
Da 4C 18 BC CD 
CE BZ DB A? 38 
A? 21 8D BA DA 
DB 1BE A? Bi BD 
Di @aF 8D DS Or 
AD CF BF DD BB 
pa Ca FF FO iB 
883 SC 23 DB CO 
EE 853 D@ A? 28 
AF 21 8D BA D4 


‚AI 20 8D 24 D4 


E8 EC ES OF DO 
85 D3 A? BE 85 


ES:A2 20 BD_?? 
Sr ae, 


AZ 31 78 8D 15 


203 AD BB DC 29° 


AD 88 DC 29 10 
DS OF AD DS Bar 
Fa 83 4C 54 8D 
538 A9 00 SD 15 
GF ED E7 BF DO 
@OF CD ES BF DO 
aF CD EF? OF DO 
ES AF 9064 85 D6 
D3 28 &C ES A2 
11 28 D2 FF E8 
FS A? 3F 8D Fi 
05 8D F3 85 8D 
EB @aF 8D EC BF 
297 ı0 FA F97 20 


Fi 85 8D EA BF 


FzZ 85 8D F5 25 
8D EC af 28 29 
25 8D EB @F 28 
F3 085 8D EC ar 
68 68 68 4C 28 
85 C& AS C6 DO 
DC 29 ıa pe FS5 
68 68 58 A4C 28 
22 C9 0D F@ Fa 


- DD C9 SB BO D? 


&8 18 57 30 8D 
BA BB AZ 85 ED 
CE BF CA iB F? 


4C 31 EA AE IE 


8D 23 DU A? 21 
A? 81 SD CF IF 
[9 82 DO 253 AC 
oa DGa 38 ED 82 


BF C9 84 BB OC 


CE @F A2 B1 AD 
BD C? 88 BO 07 
a2 AC F& BD CP? 
AZ Bi AB Bi AC 
12 BO 164 C9 OF 
ia FB 907 AZ 82 
Fö aD AZ FF ADB 
2OD C?7 18 BO 97 
81 AC F& BD C? 
A2 81 AU 22 4C 
aa SD CE BF A2 
AC F& OD SE DO 


BODF? 
BEB1 
BED? 
BE11 
BE1? 
QaE21 
BE2Y 
BE>S1 
BES? 
VEA1 
BEA? 
BES1 
BES? 
BE&1 
BESF 
BE7I 
DBE?7YF 
BEB1 
BES? 
BEPI 
BE?? 
BERI 
BEA? 
BEBi 
BEB? 
BECI 
BEL? 
BEDI 
BED? 
BEEI 
BEE? 
BEF1 
BEFT 
arßi 


. BFBF 


BFii 
OF1? 
or21 
aFr29 
arsi 
QaFr37 
Bar41 
BFATF 
BOrsi 
aFrS? 
@OF&s1 


- @F&9 
ar7i 


QF79 
arsi 
oF89 
ar9i 
aF99 
BFA1 
OFAF 
BFBi 
BOFB9 
arci 
BFC9 
BFDi 
BFD? 
BFE1 
BFE? 
OrFi 
BOFF9 
1901 
1009 
1011 
1919 
1821 
1029 
1031 

1837 
1841 

19497 
1251 

1057 
1061 

1869 
1871 


1877 


1281 
1357 
1071 
185% 
19A1 
10AF 
1881 
10569 
1801 
1807 
iBDi 
10D7 
1BE1 
10E7 
ı1OF1 
10F9 


.. BR 00 db mn O4 08 #0 un 10 DE 00 mE NE mE DO vu «m 0m du DE Ka 10 00 70 KE DE HE 00 an 00 HE an ME mE HE 0 HE 90 Em 0 90 ER on HE HE Mn 0 de 2 OR ER 0 Me u. HE nn KO a a A HE HE HE BE KH HE Au da KH HM E HE HE To En HK ME HE EEE EEE HE IE ME 7 Ah a NE EEE da ns 


46 49 52 45 28 45 &B 
28 4E 45 58 54 28 


EC 
Listing zu Block Out 
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1191 »: 41 535 54 28 553 
11997 : 45 28 28 28 28 2 


i1lAl : 28 28 28 28 208: 
11A9 : 28 28 28 28 28 
1181 : 53 43 A4F 52 45 
11B9 : 13 B5 BB BB BD 


Listing 1. Block Out 








Spiele-Trainer: Spritekill 





»Game Over«. Wieder einmal haben die Gegner gesiegt und Sie erst die 
zweite von zwanzig Spielstufen erlebt. Die Lösung: Entfernen Sie doch ein- 
fach die Gegner aus dem Spiel. Dabei hilft Ihnen das Programm »Spritekill«. 


Oft vergeht einem der Spaß an manchen Spielen, wenn man 
20 bis 30mal an derselben Stelle wegen dem gleichen, ge- 
meinen Gegner abgeschossen wurde, oder wenn man wieder 
mal diese blöde Eisenstange berührt hat und von Tausenden 
von Volt angeschmort wurde. 

Doch das war einmal! Denn mit »Spritekill« können Sie lässig 
jeden unerwünschten Schuß, jeden noch so gemeinen Geg- 
ner auslöschen. Im Spiel herrscht dann ein wenig Ruhe, die 
dem Spieler zu längerem Bildschirmleben verhilft. 

»Spritekill« arbeitet etwas anders als die üblichen Spiele-Trai- 
ner. Diese entfernen meistens alle Sprite-Kollisionsabfragen 
aus dem Spielprogramm mit dem Erfolg, daß man keine Bo- 
nuspunkte erhält, weilman auch nicht mit den brauchbaren Ge- 
genständen kollidieren kann. Im schlimmsten Falle wird das 
Ziel, in den nächsten Level zu kommen, nicht näher geßfäßnf? 
sondern völlig unmöglich gemacht, weil man gar nicht die not- 
wendigen Punkte oder Gegenstände zusammenbekommt. 
Ganz im Gegensatz dazu arbeitet »Spritekill«. Hier gehen Sie 
das gesamte Spielprogramm durch und entfernen ganz ein- 
fach die Ihnen unliebsamen Sprites. Denn mit etwas, was Sie 
auf dem Bildschirm nicht sehen können, können Sie auch nicht 
kollidieren! Die Bonusgegenstände und die eigene Figur blei- 






Tabelle der Tastenfunktionen: 
Taste 





Funktion 


+ Nächster Spriteblock 

—_ Vorheriger Spriteblock 

t 16 Sprites vor 

— 16 Sprites zurück 

B Weiterschalten des 16-KByte-Bereichs 
M Umschalten HiRes/Multi 
X 
Y 










Umschalten zwischen normaler/expandierter 
X-Darstellung 

Umschalten zwischen normaler/expandierter 
Y-Darstellung 

Löschen des links dargestellten Sprite- 












bereichs 

C Kopieren des links dargestellten Sprites in 
den Puffer 

R Kopieren des rechten Spriteblocks in den 





linken Spriteblock 
Crsr rechts Erhöhen der Startadresse des links dargestell- 
ten Sprites 
Erniedrigen der Startadr. des links dargestell- 
ten Sprites 
F7 Zurücksetzen der Einzelbyteverschiebungen 
Run/Stop Verlassen des Programms’ 
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Crsr runter 







ben selbstverständlich im Spiel drin, vielleicht noch ein paar 
einfache Gegner, damit es nicht zu langweilig wird. 

Obwohl Spritekill ein recht kurzes Maschinenprogramm ist, 
müssen wir einen DATA-Lader (Listing 1) und kein MSE-Listing 
veröffentlichen. Dafür ermöglicht es der DATA-Lader, »Sprite- 
kill« in beliebige Speicherbereiche zu legen. Denn meistens 
wird man das sehr kurze Programm im Bildschirmspeicher un- 
terbringen wollen, was die Verwendung des MSEs verbietet. 

Alle Funktionen von »Spritekill« werden mit insgesamt 15 Ta- 
sten gesteuert, die alle Autorepeat haben. Dadurch fällt es 
leicht, auch längere Spritefolgen zu löschen. 

Zur visuellen Kontrolle hat man: 

— die aktuelle Sprite-Block-Nummer 

— die Startadresse des im Augenblick sichtbaren Sprites 
zu bearbeitende Sprite 

— einen Spritepuffer 

zur Verfügung (siehe auch Bild 1). 

Sämtliche Befehle sind in der Tabelle aufgelistet. 

Um mit »Spritekill« möglichst effektiv und schnell zu arbei- 
ten, hat sich folgende Strategie durchgesetzt: 

— Nach dem Starten von »Spritekille durchsucht man den 
Speicher erst in größeren Schritten mit den beiden Pfeil- 
Tasten. 

— Sobald man ein Sprite erkennt, geht man mit»+/—« so lange 
weiter, bis das letzte Sprite kommt. 

— Ab da durchsucht man den Speicher in der anderen Rich- 
tung und löscht die ungewollten Sprites einfach mit SPACE. 
— Zum Schluß drückt man RUN/STOP und startet das modifi- 
zierte Spiel. 

Manche Spiele haben ihre Sprites vor dem Programmstart 
an anderen Speicheradressen liegen, wie beim späteren Ab- 
lauf. Deswegen kann man mit den Cursor-Tasten den Speicher 
byteweise durchsuchen. Sollte man also nur ein halbes Sprite 
oder ein verschobenes Sprite finden, muß man es mit den 
Cursor-Tasten vor dem Löschen voll sichtbar machen. 








821B Ben 
Sprite Startadresse 







ger x Er Far 
oc ae 
Nummer > En 





aktuelles 
Sprite 


Bild 1. Das sehen Sie bei Spritekill auf dem Bildschirm 





Spritepuffer 







Ausgabe 11/November 1985 


64er-online.de 
64er-online.net 


Ge, 


Wie gesagt, ist es am praktischsten, wenn »Sprite-Kill« im 
Bildschirmspeicher steht, weil dieser von den meisten Spielen 
während des Ladens in Ruhe gelassen wird. Wer eine solche 
Version auf Diskette erzeugen will, sollte im DATA-Lader als 
Startadresse »1400« angeben. Will man dann ein Spiel von 
den Gegner befreien, sollte man folgendermaßen vorgehen: 
Spiel laden, dann »CTRL-7« zur Umschaltung auf Dunkelblau 
(Hintergrundfarbe) drücken, danach »SHIFT-CLR/HOME«. 
Jetzt mit »CTRL-2« den Cursor wieder sichtbar machen, Spri- 





tekill laden und den SYS-Befehl zum Start (1400) vorgeben. 
Nun können Sie vorgehen, wie oben beschrieben. 

Sollte ein Programm mehrteilig sein und einen Autostart ha- 
ben, wird es kritisch. Sie müssen dann mit einem Monitor die 
einzelnen Programmteile laden, mit Spritekill durchsuchen und 
wieder speichern. Bei Original-Disketten sollte man das si- 
cherheitshalber unterlassen, daman durch Speichern auf dem 
Original meistens den Kopierschutz zerstört und somit das 
Spiel nicht mehr laden kann. (Garry Glendown/bs) 


DB REM zu: HH 1922 
1 REM * SPRITE - KILE * «056: 
2 REM #FHCHRH ER HKERERR <139F> 
= BEIM #E VON * <186> 
4 REM HH HERR <141> 
5 REM * G. GLENDOWN + «248: 
6 REM #HuKce RR <1435> 
7 REM * TEL.:z * <B59> 
8 REM * (Bubs21)/7534853 * <BB1i> 
9 REM HH HH HERE <146> 
18 FRINT" {CLR,„WHITE}SPRITEKILL":POKE 53281 
‚B:FOEE 53289,2:FRINT"VON GARRY GLENDOW 
N" 854} 
28 INFUT"STARTADRESSE" ; SA#: SA=VAL (SA#) 181> 
21 IF SA>42429 AND SA{49157 OR SA>’52716 OR 
SAZ1224 THEN PRINT"UNGUELTIG!":GOTO 28 <B94: 
29 PRINT"ENDADRESSE: "SA+532: INFUT"OK?T J/N" 
sAF: IF A$<>"J"THEN 20 284 > 
>@ IF SA<S&RBB THEN FL=i 2197 
55 IF FL=1 THEN 190 <B1>3> 
428 INFUT"ABSPEICHERN J/N"zA#: IF AF="J"THEN 
FL=-i <B97> 
SB FOR T=SA TOD SA+5S31:READ A:POKE T,A:CH=C 
H+A:NEXT: IF CH<>65921 THEN FRINT"FEHLER 
I"CH:END <B64 > 
51 CH=-8 <179> 
68 READ CO: CH=CH+CD: IF CO=-1 THEN 728 «164: 


78 B=FEEE.«(SA+CO) +256%*FEEE (SA+CO+1) :B=B-286 
72+5A:H=INT (B/256) :L=B-H*256 

82 FOKE SA+CO,„L:FOKE SA+CO+1,H:G0OTDO 68 

188 FOR T=49152 TO 49585:READ A:FOKE T,A:C 
H=CH+A=: NEXT: IF CH<S?65921 THEN FRINT"FE 


HLER'! "CHEND 289 > 
1821 CH=B «2297 
11@ READ CO:CH=CH+CO: IF CO=-1 THEN 142 1927 
128 B=FEEK (49152+C0) +2I56*FPEEK (49155+C0) :B= 

RB-28572+5A: H=INT (B/256) :_L=B-H*256 1975 
158 FOKE 497152+C0,L:FOKE 47153+C0,H:60T0 i 

12 253} 
148 IF CH“ >22866 THEN FRINT"FEHLER!"=:END <116> 
141 INFUT"FILENAME":FE:OFPEN 1,8,2,F#+",F,W 

" : 1532 > 
158 H=INT (5A/256) : L=SA-H#*256: PRINT#1 „CHR& ( 

L’CHR#$ (HI); <B36> 
168 FOR T=-49152 TO 49885: FRINT#1 „CHR# (PEEK 

(TI); 2NEXT:CLOSE 1:0PEN 1,8,15 “1737 
172 INPUT#1,A,B$,C,D:PRINT A","Bs","C","D: 

END <127> 
2B2 IF CH >22856 THEN FRINT"FEHLER!'"CH:END <114> 
281 IF FL=1 THEN 308 „181> 
218 PRINT"PROGRAMM IM SPEICHER VON"SA" BIS 

"SA+5>5i1 h 847 > 
228 PRINT"FROGRAMMSTART MIT {SPACE „RVSON,„SF 

ACEFSYS"5; SA" {SPACE ,RVOFF}" | «237 
238 END <232> 
S3saB H=INT (SA/256) :L=SA-Hx*?5% “288: 
518 INPUT"FILENAME ";F$:0PEN 1,8,2,F$+",P, 

W"zPRINT#1 ,„CHR$ (L)CHR$ (HI); <B13> 
s28 FOR T=SA TO SA+531:PRINT#1 ,CHR$ (PEEK(T 

))5=NEXT:CLOSE 1:0PEN 1,8,15: INPUT#1,A 

„B$,C,D:CLOSE 1 <052> 
35358 PRINT A",„"B+t","C","D:IF A=B THEN 218 <129> 
542 INPUT"NDCHMAL VERSUCHEN J/N"sA$: IF At 

Z"J"THEN 218 <198> 
S5Bß OPEN 1,8,15,"S:"+F$:CLOSE:GOTO 508 «2575 
32200 DATA 120,169,3,162,0,134,255,134,248 

‚141,21,2@08,141,23,228,141,29,208,16 

2 <Q68> 
32021 DATA 190,141,0,228,141,3,208,162,200 

‚142,2,298,2968,48,298,141,1,208,162 <232> 


32002 DATA 13,142,248,7,232,142,249,7,32,6 
0,113,32,133,112,169,19,32,210,255,1 


65 
32003 DATA 255,32,1@2,112,165,254,32,102,1 
12,169 ,32,32,218,255,32,133,112,165 
32084 DATA 253,32,1@2,112,165,252,32,102,1 
12,32,164,112,76,169,113,169,19,32,2 
10 
32005 DATA 255,169,36,32,218,255,96,72,74, 
74,74,74,281,18,48,2,105,6,105,48,32 
32206 DATA 2190,255,1@4,41,15,2@01,18,48,2,1 
05,6,105,48,32,218,255,96,165, 254,41 
32007 DATA 3,17@,189,16,114,24,101,248,133 
‚252,165,254,74,74,133,253,165,255,1 
78 
=2008 DATA 189,16,114,24,101,253,133,253,9 
6,32,133,112,160,63,128,169,53,133,1 
32009 DATA 177,252,145,249,136,16,249,169, 
55,133,1,88,96,76,129,255,165,254,24 
32218 DATA 195,16,133,254,176,67,76,49,112 
‚165,254,56,233,16,133,254,144,73,76 
32@11 DATA 49,112,230,254,240,48,76,49,112 
‚„165,254,56,233,1,133,254,144,54,76 
32@12 DATA 49,112,173,28,208,73,3,141,28,2 
08,76,49,112,173,29,2088,73,3,141,29 
32013 DATA 288,76,49,112,173,23,208,73,3,1 
41,23,228,76,49,112,238,255,165,255 
32214 DATA 281,4,16,3,76,49,112,169,0,133, 
255,76,49,112,198,255,48,3,76,49,112 
32215 DATA 169,3,133,255,76,49,112,32,133, 
ein ae 


32216 DATA 288,251,76,214,112,162,64,168,3 
„134,249,132,2590,96,162,128,168,3,13 
4 

32017 DATA 249,132,25@,96,32,69,113,32,164 
‚112,32,6@,113,96,32,133,112,32,69,1 
13 

32018 DATA 169,249,162,252,141,175,112,142 
„177,112,32,.154,112,.32, 133, 112,189, 2 
52 

32019 DATA 162,249,141,175,112,142,177,112 
‚32,68,113,76,49,112,230,248,165,248 

32020 DATA 291,63,2@8,4,169,0,133,248,76,4 
9,112,198,248,165,248,201,255,228,4 

=2021 DATA 169,62,133,248,76,49,112,169,8, 
133,248,76,49,112,32,78,113,76,49,11 
> 

32222 DATA 1698,0,162,288,165,283,200,2908,6 
‚232,208,3,76,188,113,197,251,2498,24 
1 

32823 DATA 133,251,168,15,185,226,113,197, 
251,240,6,136,16,246,76,169,113,136 

329824 DATA 152,19,168,185,242,113,141,222, 
113,185,243,113,141,223,113,76,221,1 
13 

32025 DATA 76,49,112,40,43,54,57,36,23,25, 
28,60,3,2,7,17,53,20,214,112,221,112 

32@26 DATA 190,112,282,112,233,112,244,112 
‚255,112,18,113,42,113,156,113,126,1 
13 

32027 DATA 141,113,88,113,187,112,163,113, 
2,64,128,192 

saa0R DATA 47,50,6408,65,73,78,853,86,89,139, 
156,165,200,212,219,231 ,242,253,264 

&uB1R DATA 275,282,289,296,299,302,314,335 
„338,341 ,345,348,355,358,361,364 

HAA2Q DATA 371,374,377,3808,395,410,417,428 
‚„423,438,449,459,466,469,472,475,478 

&2US5B DATA 498,500,50?,504 ,506,588,518,512 
‚514,516,518,520,522,524,526,-1 


© 64’er 


21527 


<825> 


<197> 
298> 
<202> 
<238> 
Bö1l> 


<079> 


<137> 


x121> 


<128> 


<174> 
<168> 


B43> 


<895> 


<121> 


<Bö1> 


<221> 


<175> 


<B31> 
<124> 
x151> 
<2538> 


<182> 


Listing 1. Der DATA-Lader zu »Spritekill« 
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Tips & Tricks 
für Anfänger 
und Profis 


In der Rubrik Tips & Tricks können wir 
Ihnen diesmal einige Routinen anbie- 


ten, die sich besonders zum Einbau in 
eigene Programme eignen. 


'Screen-Dump 


Eine Bildschirmmaske kann auf viele verschiedene Arten auf 
den Bildschirm gebracht werden. Die einfachste ist wohl: 
FOR I = 0 TO 999 : POKE 1024 + |, PEEK (STADR + |): 
NEXT I 
wobei STADR die Startadresse der Maske ist. Doch das ist zu 
langsam und eintönig. Das gleiche Programm in Assembler ist 
zirka 200mal schneller, aber immer noch eintönig. 

Das Programm »Screen-Dump« (siehe Listing 1) hilft dem ab. 
Auf über 100 verschiedene Arten kann hiermit das oben ge- 
nannte Programm ablaufen (das heißt 100 verschiedene Rei- 
henfolgen), von denen einige verblüffen, fast alle aber besser 
»aussehen« als dieses Programm. Auch die verstellbare Ge- 
schwindigkeit ermöglicht interessante Veränderungen. 

Die Handhabung ist denkbar einfach: 
SYS 680, Art, Stadr., Geschwindigkeit 
Art: Eine Zahl zwischen O und 127 
Dr Die Startadresse der Maske geteilt durch 256 (High- 

yte). 
Geschwindigkeit: zwischen 1 und 255 verstellbar. 

Also SYS 680, 20, 64, 8 kopiert den Bereich von 16384 bis 
17383 auf sehr originelle Weise in den Bildschirm. 

Andere »schöne Versionen« sind: 








Art Geschw. Art Geschw. 
2 En 6 4 
9 A 13 8 

19 2 20 8 

28 8 33 4 

36 10 44 4 

46 20 61 20 

64 4 65 10 

66 4 84 4 

88 2 98 8 

104 4 106 2 
120 20 125 20 


18 FOR I=6459 TO 763:READ J:POKE I,J:NEXT:P 
RINT" {WHITE,CLR,DOWN}SYS 488,ART,BLOCK, 
GESCHWINDIGKEIT {LIG. BLUE} 

28 NEW | 

100@ DATA 164,6,162,32,202,208,253,136,228 

‚248,96,8,8,8,8,0,8,0,17,1,8,32,155 

1881 DATA 1983,134,2,32,155,183,134,5,32,15 

| 5,183,134,6,165,2,10,9,1,133,97,169 

1202 DATA 4,162,02,134,2,133,3,134,4,160,0, 

177,4,145,2,165,2,24,101,97,133,2 

1093 DATA 133,4,144,4,230,3,230,5,165,3,2@ 

1,8,2088,11,169,4,133,3,165,5,56,233 

1894 DATA 4,133,5,32,147,2,165,2,2@8,211,1 

65,3,201,4,208,205,96 


Listing 1, »Screen-Dump«, mit dem Checksummer 
eingeben. 


88 Zar 


<2D4> 
<158> 


<153> 
<847> 
“4773 
<192> 


x195> 





Funktionsweise 


Wie funktioniert Screen-Dump, wo es doch nur 100 Byte 
lang ist? Am besten ist das an folgendem Beispiel zu erken- 
nen: Wir nehmen eine Gruppe von zwölf Elementen. Wie greift 
man nun nacheinander auf alle zwölf Elemente zu, so daß kei- 
ne Reihenfolge erkennbar wird? Ganz einfach: 


Wir nehmen eine Zahl, die mit 12 keinen gemeinsamen Teiler 
hat, zum Beispiel 5. Jetzt beginnen wir bei O und zählen 5 hin- 
zu. Diese Zahl nehmen wir heraus. Dann zählen wir wieder 5 
hinzu. Ergebnis 10. Unser zweites Element. Dann wieder + 5 
= 15. Element 15 ist nicht vorhanden, also ziehen wir die Ge- 
samtanzahl der Elemente ab. 15—12=3 und so weiter. Es er- 
gibt sich die Reihenfolge: 5 10 3 816 11 4 9 
2 7 12. Augenscheinlich völlig wahllos. Es funktioniert immer, 
wenn folgende Voraussetzungen erfüllt sind: 


1. Die Additionszahl (hier: 5) muß kleiner sein als die Gesamt- 
zahl der Menge. | | 
2. Die Additionszahl darf mit der Gesamtzahl keinen gemeinsa- 
men Teiler haben. e 

Im Screen-Dump wird dieses System mit einer Menge von 
1024 Elementen angewandt. Die möglichen Additionszahlen 
sind somit alle ungeraden Zahlen zwischen O und 255. 


(Michael Schmidt/tr) 





Pseudo- nterrupt 


Diese Befehlserweiterung erlaubt es, ein Basic-Programm 
zu jedem beliebigen Zeitpunkt per Tastendruck durch die 
F1-Taste unterbrechen zu lassen. Es kann dann in eine vorher 


sen onı.defisierte Basic-Routine gesprungen werden. Diese könnte 


programm : pseudo-irg gJeßi 7f4D 


9eB9 : 
Jeill : 
gel? : 
gezi : 
9829 ı 
ge3i1 : 
9e397 : 
geil : 
9e47 : 
gel : 
geS5? : 
gedöl : 
9e69 : 
ge7i : 
Ye7/9 : 
JeBl : 
9269 : 
9e91 : 
9e97 : 
geal : 
g9ea9 : 


gebl : 
geb? : 


gecil : 
9ec? : 
gedil : 
9ed? : 
Jeel : 
YJae?7 3 
gefl : 
gef? : 
901 : 
907 : 
911 : 
919 : 
921 : 
ak 
9531 : 
939 : 
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zum Beispiel den noch freien Speicherplatz oder die Uhrzeit 
anzeigen. 
Das Programm (Listing 2) bitte mit dem MSE eingeben. Esliegt 
dann im Speicherbereich von 40499 bis 40768. Geladen 
wird es absolut mit LOAD ”PSEUDO-IRQ” ‚8,1. Da das Pro- 
gramm im Bereich für die Basic-Variablen steht, muß es durch 
POKE 56,158:CLR vor Überschreiben "geschützt werden. 
Nach dem Start durch »SYS 4054 1« stehen die neuen Befehle 
zur Verfügung: 
IFIJUMP <Zeilennummer> legt fest, in welche Zeile im Falle 
einer Unterbrechung durch die F1-Taste gesprungen werden 
soll. Tritt der Befehl mehrmals auf, so gilt die zuletzt angegebe- 
ne Zeilennummer. 
IJBACK bewirkt die Fortsetzung des Basic-Programms ab der 
Stelle, an der unterbrochen wurde. 
ISF1 verhindert Unterbrechungen. Dies kann zum Beispiel 
beim Aufbau einer Grafik oder bei Arbeiten mit der Disketten- 
station wichtig sein. 
ICF1 läßt gesperrte Unterbrechungen wieder zu. 

(Guido Schuhmacher/tr) 


List-Schutz für Basic-Programme 


Dieser List-Schutz ist für Nichteingeweihte sehr verblüffend. 
Die Grundidee dazu stammt aus dem Bericht »Disketten-Mani- 
pulationen« aus 64’er, Ausgabe 6/85. Er wurde jedoch etwas 
ausgebaut, so daß hier beim Listen alle Steuercodes aktiv wer- 
den. Dies wird dadurch erreicht, daß man in eine Speicherstel- 
le vor den Codes die Zahl 141 schreibt. Um nun ein Programm 
zu schützen, lädt man es und gibt folgende zwei Zeilen ein: 


1 FOKE2857,73:60T0 18 <134> 


2 REM"A{CLR,SDOWN,YELLOW}IT IS NOT ALLOWED 
TO LIST THIS FROGRAM {BLUE}AA <125> 





Danach gibt man im Direktmodus POKE 2067,71 : POKE 
2073,141 : POKE 2118,0:: POKE 2119,0 ein und speichert 
das Programm. 

Listet man nun das Programm, so wird der Bildschirm ge- 
löscht und der Text in der REM-Zeile ausgegeben. Durch das 
künstlich erzeugte Basic-Programm-Ende-Zeichen (drei Nul- 
len) wird das Listen abgebrochen. Wird im Programm dann 
auch noch durch POKE 788,52 die RUN-STOP-, und durch 
POKE 792,193 die RESTORE-Taste ausgeschaltet, kann kei- 
ner mehr an das Programm. Aufheben läßt sich dieser List- 
Schutz nur mit einem Monitor und mit der Kenntnis der Funk- 
tionsweise des Schutzes. 

(Thomas Uttendorfer/tr) 





Sichere INPUT-Routine in Basic 


Ich habe bisher immer eine leistungsfähige INPUT-Routine 
in Basic vermißt. Das ging anscheinend nicht nur mir so, denn 
in einigen abgedruckten Programmen {zum Beispiel Ligatab, 
Listing des Monats, 3/85) fehlt eine solche Routine, was zu 
chaotischen Ergebnissen führen kann. (Wenn man zum Bei- 
spiel aus Versehen an Stelle der Shift-Taste die Crsr-Down-Ta- 
ste gedrückt hat, so nützt es dem Anwender wenig, wenn er 
mit der Crsr-Up-Taste wieder in das Eingabefeld zurückkehrt, 
weil jetzt der INPUT-Befehl die ganze Zeile als Eingabe an- 
sieht.) Deshalb hier eine INPUT-Routine, die folgende Vorteile 
hat: 
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a) Da die Routine (Listing 3) in Basic geschrieben ist, ist sie 
für jeden Programmierer leicht verständlich und abänderbar. 
b) Der Programmierer kann beim Aufruf der Routine gleich Ort, 
mini- und maximale Länge und die zulässigen Zeichen der Ein- 
gabe festlegen. 

c) Jedes Zeichen wird gleich bei der Eingabe auf seine »Rich- 
tigkeit« überprüft. 

d) Es wird nur die tatsächliche Eingabe als Eingabe übernom- 
men (und nicht noch eventuell Teile der Maske). 

e) Es funktionieren noch sämtliche Sonderfunktionstasten 
(inst, del, home, cIr und so weiter). 

f) Der Anwender kann das Eingabefeld nicht verlassen. 

ga) Die Routine ist mit 1,5 KByte relativ kurz. 


Benutzung der Routine: 

a) Setzen des Parameterstrings 

b) Aufruf mit gosub 60000 

c) Übergabe von in$ an gewünschte Variable 
Der Parameterstring: 


Er setzt sich zusammen aus: 


Stelle 1,2 : Zeile der Eingabe 

Stelle 3,4 : Spalte der Eingabe 

Stelle 5,6 ı minimale Länge der Eingabe 
Stelle 7,8 : maximale Länge der Eingabe 
Stelle 9 : Code (siehe weiter unten) 


Es ist darauf zu achten, daß einstellige Angaben (zum Bei- 
spiel: 3. Zeile) mit O3 angegeben werden, da sonst keine klare 
Trennung der einzelnen Parameter vorgenommen werden 
kann. 

Die Routine sieht Standardwerte für die minimale und maxi- 
male Länge und für den Code der Eingabe vor (Zeile 60200). 

sennen natürlich frei nach eigenem Bedarf eingerichtet 
werden. Entspricht die geforderte Eingabe den Standardwer- 
ten, so braucht der Programmierer beim Setzen des Parame- 
terstrings diese Werte nicht anzugeben, sondern nur noch 
Zeile und Spalte. Dies führt natürlich zu einer weiteren Verein- 
fachung (Beispiel: pa$ = ”0510”, das heißt Eingabe in Zeile 
5 ab Spalte 10 mit den Standardwerten). 

Code (c) 

Der Code dient dazu, die eingegebenen Zeichen sofort zu 
überprüfen. Selbstverständlich kann auch er frei programmiert 
werden. In Zeile 60490 wird entsprechend dem Code in die 
Unterprogramme verzweigt. Dort wird die gedrückte Taste 
überprüft. Entspricht sie nicht dem Code, wird f1 auf 1 ge- 
setzt. 


In der vorliegenden Routine sind Code 1 bis 4 schon pro- 
grammiert, wobei 
1 bedeutet, daß nur Zahlen 
2 bedeutet, daß nur Buchstaben 
3 bedeutet, daß alles 
4 bedeutet, daß nur Kleinbuchstaben 
zulässig sind. 
Diese Codes oder auch neue Codes können spielend leicht 
geändert oder neu programmiert werden. 


Funktionen der Sondertasten: 
CRSR UPCRSR DOWN sind abgeschaltet 
INST,DEL funktionieren innerhalb des Eingabefen- 
sters wie gewohnt (Rest der Maske wird 
nicht berührt) 


HOME springt an Anfang des Eingabefensters 
CLR - löscht Eingabefenster und springt an den 
Anfang desselben 
“ CRSR LEFT,RIGHT funktionieren wie gewohnt, nur Eingabe- 


feld kann nicht verlassen werden. 
(Karlheinz Bossf/tr) 
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Programmbeschreibung 1120 PRINT "{48SPACE}"; <194> 
Variablenliste: 1130 PRINT "NAME : {2SPACE ‚„2ZURIGHT „,12SPACE} En 
F ’ 
pa- R 1148 PRINT- " {4BSPACE}Y"; <124> 
$ : Parameterstring; dient der Übergabe der Parameter 1158 PRINT "KUERZEL (MIND 2 KL. BUCHST.) : 
bI$ : String, der nur aus Spaces besteht X2SPACE „3RIGHT „SSPACE}Y" 3; <2z00> 
in$ - Eingabe 1168 PRINT "{4B5PACE}"; <144> 
=. : gedrückte Taste 1178 Fein "ENMFUTER : {2SFACE , 1SRIGHT,13SP Mer 
+ < “ . R E 
ll mesikeihige reis pin 1180 PRINT "<4QSPACE,RVOFF ,YELLOW}"; <D60> 
sp :Spalte, ab der die Eingabe erfolgen soll 19@@ REM HIER NUN DIE 4 AUFRUFE AUS <252> 
mi : minimale Länge der Eingabe 1918 REM VORANGESANGEN BEISPIEL <149> 
ma : maximale Länge der Eingabe 1929 REM <294> r 
c : Code, welchem die Eingabe entsprechen muß 2O0D FAF="121806B861":G0SUB HARRR: AF=INS <@85> 
np re Zu2B PAAmTISZBZUSA"BORUG EMDBMICESINE <222> 
fl : Flag, ob zuletzt gedrückte Taste C rach zu20 Fr#= 1635202 & Fr h 
9 ie BA ERIRPINS 2038 PA$="1812":G0SUB HRMAD: D+=IN$ <058> 
Z@a4@ REM <@68> 
Z1@8 REM DAS WAR'S <132> 
211@ REM <140> 
3208 PRINT:PRINT "DIE EINGABEN WAREN = ";A 
£ <136> 
Z@12 PRINT B# <146> 
3@28 PRINT C# <164> 
B REM INPUT (DEMO) <Q61> 3032 PRINT D$ <182> 
1 REM INFUT-ROUTINE FUR VC 64 067% 3B40 FRINT "<{12SPACE,RVSON,SPACE}TASTE DRU 
2 REM 064> ECKEN {SPACE „RVOFF}"3 <203> 
3 REM COFYRIGHT BY “193> 3250 GET NJ$ : IF NJ$="" THEN 3058 <188> 
4 REM KARLHEINZ BOSS <157% 3995 PRINT" {CLR?" <173> 
5 REM SYLVESTER-JORDAN-STR. 11 <asn> 4200 FOKE 211,8:FOKE 214,24:5Y5 58648 <a509> 
& REM nn ..n wo. 421@ PRINT"LIST19IBB-214B1BSPACE}" <200> 
7 REM 86421713509 <B053> 4915 PRINT" {HOME}" <185> 
8 FOKE 537281,809:POKE 537898,809:FOKE 646,07 <990> 4020 LIST 38-198 <105> 
9 FRINT CHR#(14) <24b> 29999 END <B27> 
18 REM INFUT-ROUTINE <B9B > 3ZB000 : <B92> 
2B REM <Q82> 31002 : <242> 
38 REM PA IST AUFGEBAUT WIE FOLGT: <178> Z?000 : <226> 
428 REM FA$ = ZESPMIMAC WOBEI <124> 33000 : <209> 
5@g REM ZE = ZEILE <187> 34000 : <193> 
= se = En Ei KORHRB BLF=" <ABSPACE}Y" <209> 
= <B84:> INg="" <887> 
BD REM MA = MAXIMALE LAENGE EN ri? : <128> 
72 REM C = CODE WOBEI “161> HALB ZE=VAL(MIDE(FAF,1,2)) <243> 
1u2 REM 1 = NUR ZAHLEN rTer sB110 SF=VAL(MIDS(FA$,S,2)) <121> 
118 REM z = U BUCHSTABEN <165> &B12B IF LEN(PAF)=4 THEN 692088 <191> 
a REM 3 = ALLES “118: &213@ MI=VAL (MID$(FA$,S5,2)) <125> 
125 REM 4 = NUR KLEINBUCHST. “158: &B14B MA=VAL (MIDE(PA$,7,2)) <135> 
15Q REM 5-5 = FREI FROGRAMMIERBAR 1287 &B15B CO=VAL (MIDF(PA$,9,1)) <153> 
132 REM ( ZEILE 534908 ) “189> HY1AD GOTO 4985309 <059> 
1428 REM FAF MUSS DIE ZEILE UND SPALTE 2877 BBO1IB REMRRRRRREEEEHHNHR IHNEN <Q43> 
152 REM BEINHALTEN,DER REST IST HIN- “D2357 sazZan MI=9:MA=-15:C0=3 <B9F6> 
160 REM REICHEND.ES WERDEN DANN DIE :235> HDF1IRB REMKFRREREREREHERHHHERHNERERRERER -B&653> 
178 REM STANDARDPARAMETER IN ZEILE <143> 60220 : <251> 
182 REM &U202 ANGENOMMEN <219> sOTDB GOSUB 4B95B <217> 
1982 en Z.B. FAt="Q51R" 1984 > 2310 POKE 294,0 <B08B> 
200 k E <176> 40320 GET N$ : IF N$="" THEN 68328 <154> 
1200 PRINT” ELR3" 5 ö *176> 68330 SS=PEEK (211) <@&9 > 
1818 FRINT"{RVSON, FO Den RDUTINE {35P sR34QB IF ASC(N$)=13 AND LEN(IN$) >=MI THEN 
ACEICOPYRIGHT BY &. A0SS(3SPACE ‚RVOFF? FOKE 204,1 : GOSUB 638990: RETURN <135> 
«B21> 60350 IF ASC(N$)=147 THEN GOSUB 6iQ@R8 : GO 
1828 PRINT "UEBER GET WIRD EINE INFUT-ROUT TD 40322 <132> 
INE Se <171> s036B IF ASC(N$I=19 THEN GOSUB 63890 : GOS 
1252 PRINT "LIERT, WOBEI SAEMTLICHE SONDER UB 40950: 60T0 40%370 <198> 
FUNKTIONS-"; “205: 60370 IF ASC(N$)=2Q AND FEEK(211)>SP THEN 
1040 FRINT "TASTEN (INST,DEL,HOME,CLR,CR,C GOSUB 61418 : GOTO 49378 <165> 
L> NOCH " <185> &RF8B IF ASC(NF)=157 THEN GOSUB 613128:60T0 
1252 PRINT "FUNKTIONIEREN, MAN ABER DAS EI 68370 <171> 
NGABEFELD" <a72> HNZ9@ IF ASC(N$)=148 AND LEN(IN#)<MA THEN 
18&2 PRINT "NICHT VERLASSEN KANN. AUSSERDE GOSUB Hs1S595:60TO 693?0 <851> 
M KANN MAN"; <077> suAaa IF ASC(NF)I=297 THEN GOSUB 61219:60T0 
1878 PRINT "BEIM AUFRUF DER RDUTINE GLEICH 40370 £144> 
ORT, MIN."; <194> &Q41B IF ASC(N$)=17 OR ASC(N$)=145 THEN 
1088 PRINT "UND MAX. LAENGE UND DIE ZULAES 60320 £222> 
SIGEN 2EI"5 <B70> HQ420 IF ASC(N$)=148 OR ASC(N$)I=28 OR ASC( 
1878 PRINT "CHEN DER EINGABE ANGEBEN.” <97&6> N#)=13 THEN GOTO 48378 <124> 
11908 PRINT "{RVSON,„GREY 2,SPACE}BEISP.: (32 68430 : <207> 
SPACE}"; <167> &@B485 FL=® <292> 
1185 FRINT "{ABSPACE}"; <Q899> 
1118 PRINT "DATUM (LIINMAII) = {2SPACE,&RIGHT 


‚„165PACE}"; 


<B36> 
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"Listing 3. Die bedienungssichere Input-Routine mit eingebautem Demo. 
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64’er Extra 


Das 64’er Extra ist eine Extra- 
Leistung für unsere Leser. Sie 
finden hier geballte Informatio- 
nen über Ihren C 64 zum Heraus- 

nehmen und Sammeln. 

Im 64’er Extra 3 finden Sie ei- 
ne Übersicht über. den Sound- 
Chip (SID) und seine Program- 
mierung: ae 
— Registerübersicht 
— Notenwert-Tabelle 
‚— Hüllkurven 
— Filterung 
— Einstellbeispiele _ 





















Wellenform 

Der SID (Sound Interface 
Device) des Commodore 64 
kann drei verschiedene Wel- 
lenformen erzeugen: 
l. Rechteckschwingung 

Vom Grundton her erinnert 
die Rechteckschwingung an 
eine Klarinette. Die schlagar- 
tige Anderung der Wellen- 
form ermöglicht sehr vielsei- 
tige Anwendungen. 
2. Sägezahnschwingung 

Der Klang der Sägezahn- 
schwingung erinnert an eine 
Geige. Der asymmetrische 
Verlauf ist durch eine steile 
und eine flache Flanke der 
Schwingung gekennzeich- 
net. 
3. Dreieckschwingung 

Die Dreiecksschwingung 
ähnelt klanglich einer Holz- 
flöte. Diese Schwingungs- 
form kommt einer Sinuswelle 
recht nahe. 


Filterung 

Um den Klang eines Tones 
zu verändern, muß man mit 
verschiedenen Filtern die 





schwächt der Hochpaßfilter 
die tiefen Frequenzen ab. 
Die Töne klingen nun sehr 
fahl, da die Bässe fehlen. 


. 3. Bandpaß 


Der Bandpaß schwächt so- 
wohl hohe als auch tiefe Fre- 
quenzen ab und läßt daher 
nur ein schmales Frequenz- 
band passieren. 


ADSR-Hüllkurven 

Die SID-Hüllkurve gliedert 
sich zeitlich in vier Phasen, 
die jeweils unabhängig in 16 
Stufen gesteuert werden 
können. 

l. Attack (A) 

Dieser Parameter steuert 
die Zeit, in der der Ton von 
Null bis zur maximalen Laut- 
stärke anschwillt. 

2. Decay (D) 

Nach Erreichen des Maxi- 
malpegels fällt die Lautstär- 
ke wieder ab, sofern ein Hal- 
tepegel (Sustain) kleiner als 
15 eingestellt ist. 

3. Sustain (S) 

Sustain regelt die Lautstär- 

ke, auf der der Ton nach der 


’ er 


Zahlder Oberschwingungen Decay-Phase eingestellt 


en lie "in L R Dr Be verändern. Der SID kennt bleibt. Die Sustain-Phase 
a ee ea drei verschiedene Filter: dauert so lange, wie das 
54273 54274 54275 54276 54277 54278 54294 54295 54296 l. Tiefp aß Gate-Bit gesetzt ist. 
Salon ern 2 = Fr = Tg r Wie der Name schon sagt, 4. Release (R) 
Klarinette 20 0 8 65/64 106 135 15 läßt. der Tiefpaß tiefe Fre- Durch das Rücksetzen des 
Et = x 3 u - ie > quenzen passieren, während Gate-Bits wird die Release- 
area A R Erin ! - alle hohen abgeschwächt Phase eingeleitet. Der Ton 
Banjo 30 x X 32/32 8 8 u werden. klingt in der durch den R- 
ee ne = 2 mem 9 9 | 2. Hochpaß Parameter bestimmten Zeit 
xplosion 1 X 129/128 Me 3 





2 er Analog zum Tiefpaß auf Null aus. 
Tabelle 1. Einstellbeispiele für Stimme 1 

























AdressejRe BIT 3 BIT2 BIT 1 ist 

54272 | 0 | F7 BEER Frequenz low u 
5.23] ı | #3 re | #9 2 
PR P3 Pulsweite low 3 
unbenutzt pw _| 9 __| Ps ___]Putsweite - hign__| ® 


Kontrollregister 


a) 
1 
) 
u 
fd 
W 
= 
je) 
= 
rd 


54276 auschen |Rechteck |Sägezahn |Dreieck I|Test ___ |Ringmodulat.|Synchronisat.] GATE 
54277 ttack 3 JAttack 2 JAttack 1 JAttack ® |Decay 3 |[Decay 2 |Decay 1 |Deca 
2 [Releaseo | 


54278 | 6 |Sustain_3 Release 
en 


Attack/Deca 


BIT ® 
eo | 79 | Fe [Frequenz high 
Bei: 
T 
Fo 
F8 


BIT 6 

F6 

tain 2 

F6 

Fi4 

Pe 33084) RE 1 

54282 | 10 Junbenutzt [unbenutzt Jundenutz+ unbenutzt | _ Pr | Pıo | P9 | Ps Jputsweite high 
54284] 12 [Attack 3 [Attack 2 JAttack 1 JAttack 0 |Decay 3 |Decay 2 |Decay 1 |Decay © |Attack/Deca 


BIT4 
F4 
F4 
PL 


5 R Release 2 |Release! | Release® Sustain/Release nn 
7 BESETZT. AT Tea So 
za 5 oe |. EB | FR "Ten kb Fo] 89] ire... [Frequenz high E 
54281] 9 TER ER N P3 Pulsweite low m 
! a wo 

auschen [Rechteck [Sägezahn [Dreieck |Test _ __[Ringmodulat [Synchronisat{| GATE_|_] Kontrollregister 


uw > 170 1E un 12> 10 
ae) nn o (0) 
—) ’) — 
3: — 
—) 






ustain 3 |Sustain 2 |Sustain 1 [Sustain 8 |Release3 [Release 2 |Retease 1 JRelease® |sustain/Release_| |» 
F7 Frequenz low 
Io’ 
SV] SE BR RN I Tr a A TE Et TR TE DI TR a Ta eTartaR 
54289] 17 Junbenutzt [unbenutzt [unbenutzt [unbenutzt [| pn: | po | Ps _] Pe" _JPutsweite hioh|m |” 


E= 


auschen [Rechteck __|Sägezahn |Dreieck _|Test [Ringmodulat.[s 
ttack 3 Deca 





Attack /Deca 






20 |Sustain 3 
nbenutzt 
"_6F 10 = 
esonanz 3|Resonanz 2 [Resonanz 1 [Resonanz 9 re 
& 


Es 


„L 


us 








ochpass 





X SI 
Pot Pot =.1e 
Bar IT BET TER IT TE ET a IB 2 
ee 24 


nchronisattGATE Konfrollregister 
V) 
Sustain /Release 
) 


[> 25] > 2 Bas” 

















Tabelle 2. Die 29 Register des SID (Sound Interface Device) mit Kurzbeschreibung der Funktionen. | 
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Nr. Note- Fre- Parame- Hi- 
Oktave auenz(Hz) ter Byte 


- Oo O0O0N DD PP OD— © 


[Er | 








Attack- Decay- Sustain- Release- 


“ Phase Phase Phase Phase 
GATE-Bit  GATEBit 
gesetzt rückgesetzt 


Bild 1. Der Verlauf von ADSR-Hüllkurven 
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1 
1 
1 
1 
l 
l 
1 
1 
I 
a 
1 
2 
2 
2 
2 
2 
2 
2 
3 
g 
2 
3 
3 
4 
4 
4 
4 
5 
d 
s) 
6 
6 
6 
7 
7. 
8 
8 
9 
9 


Zeit 


Note- Fre- Parame- Hi- Lo- 
Oktave quenz(Hz) ter Byte Byte 


17821 
18881 
20004 
21193 
22454 
23789 
25203 
26702 
28290 
29972 
31754 
33642 
39643 
"37762 
40008 
42387 
44907 
47578 
50407 
93404 
56580 
59944 
63508 





POKE POKE 
54277 54278 





3 14 0 12|. 222 


Bild 2. Beispiele für Hüllkurven 
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Listing Schluß 


68478 ON CO GOSUB 637909,65710,63720,63738 
‚65740 ,63758 <B21> 
69495 IF FL=1 GOTO 48328 <1648> 
su5ue : x@21> 
eB5a5 IF LEN(INF}=SS-SF THEN INF=INF+NF:GD 
TO 582515 894 > 
suS5id In#=LEFTFEINF, 5S5-5F) +n$+MIiDE (INF,SS- 
SF+2,LEN(INF) -SS+SP-1) <B84 > 
68515 FRINT N$; 1073 
sasra IF SS=SF+MA-1 THEN FRINT CHRE(157); 2158> 
aua22 GOTO 48328 02477? 
68721 : <16B> 
EBIE2 : <1&47> 
suFruT : -178> 
Hu758a FOKE 2Z11,5F:FOKE 214,ZE:5SYS S864408:RE 
TURN <244 > 
97977 : <Q12> 
&1IBBB GOSUE 499508 <is32 
&iBiı FRINT LEFTF(BLF,MA); <145> 
61lBzd GOSUR 489750 “173> 
61BIB INF="" <@a1l> 
14 RETURN -135> 
619977 : <112> 
s1218 IF SSISFP+LEN(INF)AND SS{SP+MA-1 THEN 
55=-55+1 <B197> 
61228 GDSUB 438972 -138> 
612358 FOKE 2711,55:5YS5 58440 <Qs5> 
51248 RETURN <B81> 
s8125B : <Q8F > 
61319 IF SS>SP THEN S5=-5S-1 <228> 
1328 GOSUB 528978 <230> 
61338 FOKE 211,55 : SYS 58848 <145> 
61342 RETURN <181> 
813580 : <1097> 
81418 INF=LEFTFLINF,SS-SF-1)+MIDE(IN$,SS-S 
F+1,LEN{IN£)-55+5P) <118> 
61428 GOSUE 53890 j <B82> 
61425 IF LEN(INF)<ZMA-i THEN FRINT" "; 034 > 
&1452B FOKE 211,55-1 : SYS 58548 111 
51442 RETURN Q 
614978 : <2317 
815985 IF SS=-SF+LEN(INF) THEN GOTO 41548 <188> 
&151B INF=SLEFTF(INF,SS-SP})+" "+MIDFCINF,„SS 
-S5P+1 ,LEN( INS) -55+5P) 0335 
61528 GISUB 535998 <184> 
61538 FOEE 211,55 : SYS 58448 <111> 
61548 RETURN 127? 
1598 3 <B975> 
&2B7B GOSUB 689508 “2317 
63872 FRINT IN$S:IF LEN(CINF)I<ZMA THEN FRINT 
re N <126> 
63878 RETURN 179? 
3899 : <118> 
&>7B8 IF ASC(NF)SAB DR ASC(N#) >57 THEN FL= 
1 <125> 
839727 RETURN 218: 
629718 IF ASC(NF)=Z32 THEN RETURN ı2354> 
639711 IF(ASCINF)<SS OR ASC (NE) >92) AND (ASC ( 
NF)<195 OR ASC(NF#) >18) THEN FL=i <238B> 
639717 RETURN <22B> 
8392B REM 2257 
&3929 RETURN 230: 
839738 IF ASC({NF)=32 THEN RETURN 294 > 
63931 IFtASCINF)<SAH5 OR ASC(NE) >78) THEN FL 
=1i <B96> 
63939 RETURN <240> 
62948 REM <245> 
639747 RETURN 2507 
63758 REM 20097 
63957 RETURN 094 > 
8 &4t’er 


Synthetische Melodien 


Das wahrscheinlich kürzeste und erstaunlichste Musik-Syn- 
thesizer-Sequenzer-Programm, das je veröffentlicht wurde. Es 
handelt sich um ein 47 Byte langes Assemblerprogramm, das 
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im Listing 4, in Form eines DATA-Laders vorliegt. Die Melodie 
und die Klangfarbe kann man über die Speicherstellen 1022 
und 1023 einstellen. Dabei kommt es allerdings nur auf die Dif- 
ferenz der beiden Byte an. Es empfiehlt sich also, die Spei- 
cherstelle 1022 mit O zu belegen und für 1023 alle Werte von 
O bis 128 auszuprobieren. 

Melodische Tonfolgen erreicht man mit POKE 1023,7+ 
8*n, wobein eine ganze Zahl zwischen O und 16 sein darf. Ef- 
fektvolle Klänge erreicht man zum Beispiel über folgende Wer- 
te (POKE 1023....): 11, 28, 62, 96, 130. 


Funktionsweise 

Zuerst werden Kurven- und Wellenform festgelegt. Die bei- 
den Speicherinhalte von 1022 und 1023 werden erhöht be- 
ziehungsweise erniedrigt. Dann werden sie miteinander durch 
die AND-Funktion verknüpft. Das Ergebnis kommt ins High- 
Byte des Tonhöhenregisters. Eine kleine Warteschleife macht 
die Komposition hörbar. (Wolfgang Horak/tr) 


POKE 1822,08 
INPUT "PARAMETER" zA:POKE 1932,A 
FOR T=@ TO 46:READ B:POKE T+832,8:NEXT 

a SYS 832 
DATA 169,15,141,24,212,141,5,212,169,11 
2,141,6,212,169,17,141,4,212,238 
DATA 255,3,206,254,3,162,80,16,8,209,288 


‚253,232,224,7,208,246,173,255 
DATA 3,45,254,3,141,1,212,176,227 


8 64’er 


Listing 4 »Synthetische Melodien«. Bitte mit dem 
Checksummer eingeben. 





die Super-POKEs 


POKE 792,226: POKE 793,252 

Sobald die RESTORE-Taste gedrückt wird, wird ein Reset 
ausgelöst. | 
POKE 774,226: POKE 775,252 

Sobald der LIST-Befehl eingetippt wird, wird ein Reset aus- 
gelöst. 
POKE 818,226: POKE 819,252 

Sobald der SAVE-Befehl eingetippt wird, wird ein RESET 
ausgelöst. (tr) 


Tips & Tricks — Mischmasch 


Und hier noch ein paar Kleinigkeiten für die Tips & Tricks- 
Sammlung: 
— Neustart eines Basic-Programms nach Drücken von RUN- 
STOP-RESTORE: 
1 DAIA 169, 49, 141, 20, 3, 76, 113, 168 
2 FOR I=700 TO 707: READ A: POKE 1,A: NEXT 
3 POKE 770,188: POKE 771,2 

Einzige Bedingung ist, daß Ihr Programm eine Zeile O ent- 
hält, da der Interpreter einen RUN O-Befehl ausführt. 


— Nachladen von Datasette mit Autostart: . 
POKE 56335,2 
Dem Betriebssystem wird vorgegaukelt, daß SHIFT-RUN- 
STOP gedrückt wäre. 
— Nützliche SYS-Adressen: 
43121: entspricht dem Befehl RUN O | 
42039: Ausgabe von Fehlermeldungen. Im X-Register 
des Prozessors muß die Fehlernummer stehen (Speicherstel- 
le Nummer 781). 
64763: RESET, ohne Initialisierung der Vektoren (IRQ etc.). 


(tr) 
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Ergänzungen zu Hypra-Ass 


Durch diese Ergänzung kann Hypra-Ass bedingte Verzweigungen 
in vollem Umfang bearbeiten. Das war bisher nicht möglich. 


Wollte man zum Beispiel die Befehlsfolge LBL BCC LBLas- 
semblieren, meldete der Assembler einen »branch too far«- 


Error. Alle bedingten Verzweigungen, wie BCC, BCS, BNE ..., 


bei denen auf das eigene Befehls-Byte verzweigt wurde, funk- 
tionierten nicht. Befehlsfolgen beziehungsweise Warteschlei- 
fen dieser Art werden zum Beispiel vom DOS sehr intensiv ge- 
nutzt. Sie bewirken, daß so lange gewartet wird, bis die 
Interrupt-Routine das Carry-Bit im Prozessor-Statusregister 
setzt. 
Nachdem ein Quelltext geändert wurde, konnte es passie- 
ren, daß Hypra-Ass undefinierte Zeilen an das Quelltextende 
setzte. Dieses eigenmächtige Handeln von Hypra-Ass kam 
zwar sehr selten vor, hatte aber fatale Auswirkungen. Denn der 
Assembler quittierte jeden Versuch, den Quelltext zu überset- 
zen, mit einer Fehlermeldung. Leider ließen sich die überflüssi- 


gen Zeilen auch nicht mehr löschen, so daß man in einigen Fäl- 
len gezwungen war, den gesamten Quelltext neu einzugeben. 


‚Die nun folgende Ergänzung beseitigt auch diese, für viele Le- 


ser sicherlich unangenehme Eigenschaft. 

Bevor Sie jetzt anfangen, das Quelltextlisting abzutippen, 
muß zuerst Hypra-Ass geladen und gestartet werden. Verges- 
sen Sie beim Abtippen nicht das Minuszeichen nach jeder Zei- 
lennummer und das Leerzeichen für Maschinenbefehle hinter 
dem Minuszeichen. Haben Sie den Quelltext abgetippt, ist 
Hypra-Ass wie gewohnt mit RUN zu starten. Beim Assemblie- 
ren korrigiert sich Hypra-Ass automatisch. Mit SYS 49152 wird 
die neue Hypra-Ass Version unter dem Namen »Hypra-Ass+« 
auf Diskette gespeichert. | 


(Gert Möllmann/ah) 


100 -; Old-Befehl berichtigen: 480 3 

110.3 490 -error Ida #5 

‚120 -.ba $1fJce. 300 — jimp $a7f 

130... = sec Si | 

140 -; SaER ONLIAEE -; 

150 -; Branch auf . der Stelle erlauben 350 3 

1&0 -; ( label beg label): 540 -; Um die geaenderte Version neu 
2 350 3; abzuspeichern ist folgender 
180 -.ba $d353 S60 -; Quelltext geeignet: 

190 =3 70 3 

200: — Ida $*3c 580 -.ba £cO000 

210 - sec 390 -3 

220 = sbc #fb 600 -.eq sourcestart = $1fd8 

9 tax 610 -.eg namlen = 10 

240 — Ida *3d BAO. 3 

a. © sbc $fc 0 - ida #1 

Eu: = tay 40 — ldx #8 

270 - txa 650 —- sta $fe 

zu0: = sbc #2 a — stx $ff 

»," , 6 Mn sta $J3c 670 - ida #8 

1 9, 3 Ban “by $bO,i 680 — jsr $ffba 

310 — dey sr — lda #namlen 

EG: ee 700 -—- ldx #< (name) 

330 -bri cpy #0 719. —- ldy #>(name) 

340 — „by $f0,16 TREE: jSsr $ffbd 

330: = iny zu ida #$fe 

Ba. .by *dO,18 740 - ldx #< (sourcestart) 
370 - cmp #$80 Rue 2 idy #>(sourcestart) 
390 -—- „by $970,14 I = jimp $ffd8 

390 —- inc $Sc 7709 -3 

400  — cmp #$fe 780 -name .tx "hypra-ass+" 
410 — “by 90,2 790 -3 

420 —- dec $#3c 800 -3;3 Durch sys #c000 wird der ge- 
430 -br3 rts 810 -; aenderte Assembler auf Disk 
440 -;3 820 -; abgespeichert 

450 -br2 cmp #$80 

440 — .by bO,i 

#709. rts Quelltextlisting zur Hypra-Ass-Ergänzung 
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Reassembler 
zu Hypra-Ass 


Passend zum Assembler Hypra-Ass 
stellen wir Ihnen jetzt auch einen pro- 
fessionellen Reassembler vor, der aus 
einem Maschinenprogramm Quelltext 
erzeugt. 


Der Reassembler (siehe Listing). ist vollständig in Maschi- 
nensprache geschrieben. Er belegt den Speicherplatz von 
$C000 bis $CBO0, kann-aber mit dem SMON in jeden ande- 
ren Bereich verschoben werden. Neben dem eigentlichen Re- 
assembler stehen noch einige Basic-Befehle zur Verfügung, 
mit denen zum Beispiel Einsprungpunkte im Quelltext durch 
ein Label markiert werden können. Es läßt sich auch vorherbe- 
stimmen, ob der Reassembler selbständig nach Tabellen su- 
chen soll oder nicht. Weiterhin läßt sich der Aufbau des Quell- 
textes in einigen Punkten mitbestimmen. Alle dazu nötigen In- 


. formationen werden dem Reassembler in einem kleinen Basic- 


Informationsprogramm mitgeteilt. Es stehen dafür drei neue 
Basic-Befehle zu Verfügung: 

-P adresse: Mit diesem Befehl lassen sich Einsprungpunkte 
im Quelltext durch ein Label markieren. So sind Adressen, die 
mit SYS angesprungen werden, im Quelltext leichter auffind- 
bar. 


-T adresse, adresse: Mit diesem Befehl teilen Sie dentA&&ß- Ok! 


sembler die Lage von Tabellen mit. Die erste Adresse zeigt auf 
das erste und die zweite Adresse auf das letzte Byte der Tabel- 
le. Tabellen werden vom Reassembler nicht reassembliert, 
sondern erscheinen im Quelltext in Form eines Hex-Dumps 
(siehe Bild 1; Zeile 190 und Bild 2 Zeile 230 bis 310). 

--E (byte): Der »E«-Befehl startet den Reassembler und steht 
am Ende des Informationsprogramms. Es wird nun aus einem 
Maschinenprogramm ein Quelltext erzeugt, der im. Basic- 
Speicher abgelegt und anschließend wie ein normales Basic- 
Programm gespeichert oder editiert und mit Hypra-Ass as- 
sembliert werden kann. 


Der Aufbau des Quelltextes läßt sich geringfügig beeinflus- | 


sen, indem hinter den »E«-Befehl eine Zahl zwischen O und 
' 255 eingegeben wird. Bei dieser Zahl handelt es sich um ein 
sogenanntes Informations-Byte. Die einzelnen Bits dieses 
Informations-Bytes haben folgende Bedeutung: 
Informations-Byte: 3.004709: 08, re 
Bit: 7 GUESE > pr = ee Re NE & 
Wertigkeit: 128 064032 016 008004002 001 
Um zum Beispiel Bit 1 und Bit 6 auf 1 zu setzen, sind die 


Wertigkeiten der einzelnen Bits zu addieren. In diesem Fall 2° 


+ 64 = 66 Ä 

Bit 0 gesetzt: Alle Zeropage-Adressen (Adressen von $00 bis 
$FF) werden durch ein Label mit nur drei Buchstaben (normal 
fünf) markiert. _ 

Bit 1 gesetzt: Nach den Befehlen RTS, RTI, BRK und JMP wird 
eine Kommentarzeile in den Quelltext eingefügt (Zeile 220 in 
Bild 2). Dadurch wird der Quelltext übersichtlicher. 

Bit 2 gesetzt: Bei allen Befehlen mit unmittelbarer Adressie- 
rung (zum BeispielLDA #$41) wird der Operand zusätzlich im 
ASCII-Format ausgegeben (LDY #$00 ;” .” — Zeile 140 und 
160 in Bild 2), vorausgesetzt, er liegt zwischen 32 und 96 
oder zwischen 160 und 224. Für den Fall, daß er außerhalb 
dieses Zahlenbereichs liegt, wird nur ein Punkt ausgegeben. 
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Bit 3 gesetzt: Zwischen je zwei Tabellenzeilen wird eine Kom- 
mentarzeile eingefügt (Zeile 240, 260, 280, 300 in Bild 2). 
Dieses erhöht die Übersichtlichkeit. 

Bit 4 gesetzt: Der ASClIl-Ausdruck wird bei Tabellen unter- 
drückt. 

Bit 5 gesetzt: Ist dieses Bit gesetzt, werden externe Label und 
Tabellenlabel speziell gekennzeichnet (Zeile 100 und 230 in 
Bild 2). Tabellen wird ein »I« vorangestellt (zum Beispiel 
TLCO00) und externen Label (Label die außerhalb des zu reas- 
semblierenden Bereichs liegen) ein »E« (zum Beispiel 
ELCOOO). - 

Bit 6 gesetzt: Ist das Bit 6 gesetzt, sucht der Reassembler 
selbständig nach Tabellen. Es wird kein Quelltext, sondern ein 
Basic-Informationsprogramm generiert, das die Start- und 
Endadressen aller gefundenen Tabellen enthält. Dieses kann 
mit LIST oder — wenn Hypra-Ass geladen wurde — mit /E geLl- 
STet und geändert werden. 

Bit 7 gesetzt: Der Reassembler reassembliert die Speicherin- 
halte, die sich unter dem ROM im RAM befinden. Dadurch ist 
es möglich, Programme zu reassemblieren, die sich unter dem 
Basic-Interpreter oder Betriebssystem befinden. 

Aus den dreineuen Basic-Befehlen setzt sich jedes Informa- 
tionsprogramm zusammen. Es wird mit folgender Befehls- 
Sequenz im Direktmodus gestartet: 

SYS 49152, anfadr, endadr+ 1:RUN 
anfadr = Anfangsadresse des Maschinenprogramms, das re- 
assembliert werden soll. 









-.1i 1,4,7 
208 Zei HARERKRRERRNRRKERRRURTERTERKRHTFNR 


Ausgabe eines Textes auf +* 

dem Bildschirm * 

so EHER NINE 
68 -.ba $5B82 ;Startadresse = $80B2 






78 une 
 —.eq ausgabe = $ffd2 ;Dies ist ein externes Label 











idy #8 





;Schleifenzaehler auf 8 setzen 
; Zeichen holen 
smit Endekennzeichen vergleichen 






- beq ende 
ei jsr ausgabe 





;Zeichen ausgeben 
iny ;Schleifenzaehler + i 
bne loop 
-ende rts 





;Ende und zurueck ins Basic 






198 -text .tx "Dies ist ein Beispieltext#"- 





Bild 1. Beispielprogramm zum Reassembler 
(Original Quelltext erstellt mit Hypra-Ass) 





108 — 
112-; 
128 — 
130-5; 
142 -180202 1ldy #398 

152 -18002 1da t18B10,y 
160 - 
178 - 
188 - 
198 — iny 

288 — bne 18222 
218 -19Q0f rts 


elffd2=$ffd2 


8200 


cmp ##23 
beq 1800#f 
Jsr elffd2 


220-3; 
23@ -t18018.by +c4,549,345,355, 320,349, 353,354; "Dies ist" 
2498 -; 

250 - .by #20,+45,349,54e,520,502,$545,549; " 
2609 -; 

278 - .by $535,350,449,445,$4c ,$54 ,545,$58; "spieltex" 
288 -; 

290 — “by #54 - 
300 -; 
51@-t198929.by $25 


ein Bei" 


— wo ia 


. oe, . Auge 


Bild 2. Reassembler-Quelltext zum Beispielprogramm 
aus Bild 1 
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endadr = Endadresse des Maschinenprogramms, das reas- 
sembliert werden soll. 

Um zum Beispiel den Reassembler durch sich selbst reas- 
semblieren zu lassen, gehen Sie wie folgt vor: 

1. Reassembler laden mit LOAD”’REASS” 8,1 

2. NEW <RETURN> eingeben 

3. Folgendes Basic-Informationsprogramm eingeben: 
20--P $CO000 ;Kennzeichnet die Adresse $COOO durch ein 
Label | 

30-T $C813,$CAFF ;Definiert eine Tabelle im Bereich von 
$C813 bis $SCAFF 

AO-E 15 ‚Startet den Reassembler und setzt die Bits O bis 3 
4. SYS 49152,$C000,$CBO0:RUN <RETURN> 

im Direktmodus eingeben. 

Die SYS-Zeile, mit der das Informationsprogramm gestartet 
wird, teilt dem Reassembler mit, daß das zu reassemblierende 
Maschinenprogramm im Bereich von $CO00 bis $CAFF 
($CBO0 - 1) liegt. In Zeile 20 trifft der Reassembler auf den 
»P«-Befehl, der dazu auffordert, - die Adresse $COO0 durch ein 
Label zu markieren. Der »I«-Befehl in Zeile 30 definiert eine Ta- 
belle im Bereich $C813 bis $CAFF und der »E«-Befehl in Zeile 
AO startet schließlich den Reassembler. 

In weniger als 8 Sekunden wird nun ein etwa 17 KByte lan- 
ger Quelltext erzeugt, der mit LIST oder — wenn Hypra-Ass 
geladen und gestartet wurde — mit dem /E-Befehl geLISTet 
und mit RUN assembliert werden kann. 

Wie Sie sicherlich schon bemerkt haben, verarbeitet der Re- 
assembler nicht nur Dezimal-, sondern auch Hexadezimalzah- 
len. Eine Hexadezimalzahl beginnt mit einem Dollar-Zeichen 
($), dem genau vier Hex-Ziffern folgen müssen. Beispiel: 
$0073, $C000, $FFFF 


Besonderheiten 


1. Der Reassembler arbeitet ausgezeichnet mit HYpra-As$"- 


zusammen. Dabei ist es jedoch übersichtlicher, das Informa- 
tionsprogramm ohne Leerzeichen einzugeben, weil Hypra-Ass 
nach dem ersten Leerzeichen einen Tabulator einfügt. Das 
Aussehen des Quelltextes würde dadurch verunstaltet. Ge- 
startet wird das Informationsprogramm wie gewohnt mit RUN. 
(Vergessen Sie nicht den Minusstrich vor jeder Zeile, wenn 
Hypra-Ass geladen ist.) 

2. Aus programmtechnischen Gründen kann es vorkom- 
men, daß der Reassembler im ersten Pass ein Maschinenpro- 
gramm anders reassembliert als im zweiten. Dadurch können 
in Pass 2 Sprungadressen im Maschinenprogramm auftau- 
chen, die in Pass 1 nicht gefunden wurden und deshalb auch 
im Quelltext nicht durch ein Label markiert werden. Der Reas- 
sembler ersetzt in diesem Fall die Sprungadresse nicht durch 
ein Label, sondern stellt sie als Hex-Zahl im Quelltext dar. An 
die entsprechende Zeile werden 3 Fragezeichen angehängt. 
3. 3-Byte-Befehle, die bei der Assemblierung als 2-Byte- 
Befehle interpretiert werden (BIT $A9 $00 = .BY $2C LDA 
#$00), werden nicht reassembliert. Statt dessen werden die 
3 Byte mit vorangestelltem .BY-Pseudoopcode in den Quell- 
text eingefügt. Der reassemblierte Befehl wird aber als Kom- 
mentar an die entsprechende Zeile angefügt. 

4. Es ist möglich, ein Programm so zu reassemblieren, als 
ob es in einem anderen Bereich läge. Dazu ist an den SYS- 
Befehl eine weitere Adresse anzuhängen: 

SYS 49152, anfadr, endadr, get 

anfadr und endadr geben die Anfangs- und Endadresse des 
Bereichs an, in dem das Maschinenprogramm liegen soll. get 
gibt die Anfangsadresse des Bereichs an, in dem das Pro- 
gramm tatsächlich liegt. 

So kann man zum Beispiel die Kopie der CHRGET-Routine 
ab $E3A2 reassemblieren, als ob sie im Bereich von $0073 
bis $008A liegen würde. Dazu ist im Direktmodus folgende 
Zeile einzugeben: 


8 Fran 





SYS 49152, $0073, $008A, $E3A2:-E 

Da keine Tabellen in diesem Bereich liegen, kann auf ein In- 
formationsprogramm verzichtet werden. 

5. Es ist möglich, während der Reassemblierung den er- 
zeugten Quelltext auf Diskette zu schreiben. Dadurch bleibt 
der Basic-Speicher für andere Programme frei. Dazu ist vor 
dem SYS-Befehl, mit dem die Start- und Endadresse überge- 
ben wird, ein Programmfile zu öffnen. Mit dem Befehl CMD 
wird die Ausgabe auf das entsprechende Gerät umgeleitet. 
Das könnte wie folgt aussehen: 

OPEN 1,8,1'"NAME,PW”:CMD 1:SYS 49152,$C000, 
$CB00:-E 64 

Mit dem OPEN-Befehl wird ein Programmfile mit dem Namen 
»Name« zum Schreiben geöffnet. Der CMD-Befehl leitet die 
Ausgabe auf das Gerät mit der Gerätenummer 8 um 
(Disketten-Laufwerk). Der SYS-Befehl startet schließlich den 
Reassembler, dem durch den »E«-Befehl noch mitgeteilt wird, 
daß kein Quelltext, sondern ein Informationsprogramm erstellt 
werden soll. Das Informationsprogramm wird unter dem Na- 
men »Name« auf Diskette gespeichert. 

Vorsicht! Dieser Programmteil ist nicht gegen Fehlbedie- 
nung abgesichert. So führt eine nicht eingelegte Diskette zum 
Absturz des Systems. In einem solchen Fall ist ein RESET aus- 
zulösen. Hypra-Ass kann anschließend mit SYS 2168 neu ge- 
startet werden. Außerdem sollte nach jedem Speichern die 
RUN/STOP-RESTORE-Taste gedrückt werden. 


Fehlermeldungen 

SYNTAX ERROR: Ein Basic-Befehl wurde falsch eingegeben 
oder eine Hex-Zahl besteht aus weniger als 4 Hex-Ziffern. 
OUT OF MEMORY: Es steht zu wenig Speicherplatz für den 
Quelltext zur Verfügung oder im Maschinenprogramm kom- 
men mehr als 2700 verschiedene Label vor. 

"AL QUANTITY: Vor einer Hex-Zahl fehlt das Dollar- 
Zeichen ($) oder das Tabellenende liegt vor dem Tabellenan- 
fang oder die Tabellen überschneiden sich oder die angege- 
bene Adresse liegt nicht im Maschinenprogramm. 

TYPE MISMATCH: In einer Hex-Zahl stehen falsche Hex- 
Ziffern. 

Die Adresse, die schon als Einsprungpunkt markiert wurde, 
darf nicht als Tabellenanfang oder -ende angegeben werden. 
Im Informationsprogramm darf keine Adresse doppelt vorkom- 
men. 


Verschieben des Reassemblers 

Der Reassembler benutzt in der Zeropage verschiedene 
Speicherzellen als Kurzzeitspeicher. Der Langzeitspeicher 
dagegen liegt unter dem Betriebssystem ($EOO00 bis $FFFF). 
Dort befindet sich auch ab Adresse $E028 die Label-Tabelle. 
In den Langzeitspeicher sollte nicht hineingePOKEt werden. 

Der Reassembler kann mit SMON ohne Schwierigkeiten im 
Speicher verschoben werden. Um den Reassembler nach 
$9000 zu verschieben, sind folgende SMON-Befehle einzu- 
geben: 


. W C000 CBO00O 9000 


V C000 CBOO 9000 9000 9813 


Beispiel zu den Basic-Erweiterungen 

Laden Sie Hypra-Ass, starten Sie ihn und laden anschlie- 
Bend den Reassembler. Geben Sie NEW und danach im Di- 
rektmodus 
SYS 49152,$1000,$1FD7:—E 64 <RETURN> 
ein. Der Reassembler bekommt durch den SYS-Befehl die 
Start- und Endadresse des Maschinenprogramms mitgeteilt. 
Der »E«-Befehl setzt Bit 6 des Informations-Bytes und startet 
den Reassembler. Das gesetzte Bit 6 bewirkt, daß kein Quell- 
text, sondern ein Informationsprogramm erstellt wird. LISTen 
Sie das Programm mit /E. Sie sehen eine Reihe von »I- 
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Befehlen und zum Schluß einen »E«-Befehl. Schreiben Sie hin- 
ter diesen Befehl die Zahl 32, drücken die RETURN-Taste und 


geben folgende Zeile im Direktmodus ein: 


OPEN 1,81 REASS DEMO,PW”:CMD 1:SYS 
49152,$1000,$1FD7:GOTO 100 <RETURN> 
Mit dem OPEN-Befehl wird ein Programmfile mit dem Namen 
»REASS DEMO zum Schreiben geöffnet. Der nachfolgende 
CMD-Befehl leitet die Ausgabe des Quelltextes auf dieses File 
um. Durch den SYS-Befehl wird dem Reassembler die Start- 
und Endadresse des Maschinenprogramms mitgeteilt. Der 


programm : reass ' 


cDdBD 
ca08 
cB18 
c21i18 
c82® 
c328 
cB38 
ca58 
cB48 
c348 
cB5B 
ca58 
cBösB 
c93u8 
ca78 
c978 
c28D 
cBB8 
cBD97B 
ca978 
cBad 
cda8 
c2bR2 
c2b8B 
cc 
c0c8 
cBOd® 
cBd8 
cBeB 
" cde8 
caof® 
caf8 
c188 
c1B8 
c118 
c118 
c128 
c128 
c158 
c1358 
c148 
c148 
c158 
c15B 
c16D 
c168 
c17B 
c178 
c188 
c188 
c1978 
c198 
c1iaßd 
cia8 
c1ib® 
ci1b8B 
cic® 
c1c8 
c1d® 
c1d8 
cießd 
cie8 
cifB 
cif8 
c2098 
c208 
c218 
c218 
c228 
c228 
c238 
c2538 


cBßBB cbBRB 


c240 
c248 
c252 
c258 
c2ös8 
c268 
c278 
c278 
c288 
c288 
c297B 
c-298 
c2a® 
c2a8 
c2bB 
c2b8 
c2c® 
c2cB 
c2d® 
c2d8 
c2eß 
c2e8 
c2f8 
c2f8 
c-508 
cS528 
c35i1® 
c318 
c- 328 
c-328 
c-353B 
c-338 
c3548 
c348 
c-358 
c358 
c56B 
c3568 
c37B 


:c378- 


c-388 
c388 
c392 
c-5978 
c35aß 
c35a8 
c5bB 
c3b8 
cS5c® 
c5c8 
c5d® 
c3d8 
cS5eß 
cS5e8 
este 
c3f8 
c498 
c408 
c41B 
c418 
c428 
c428 
c438 
c438 
c448 
c448 
c458 
c458 
c46B 
c468 
c478 
c478 
c438 
c488 
c490 


69 
u er 


DD 
cI 
45 
a2 
fB 
28 
et] 
e} 
f8 
28 
D2 
fd 
ad 


Se 


20 
7 
fo 
02 
a9 
ba 
3@ 
28 
c5 
708 
297 
40 
34 
ch 
20 


4c 


c9? 
a2 
72 
ad 
288 
a8 
c7 
c35 
28 
82 
f8 
29 
9d 
ch 
28 
c5 


8d ba 
28 753 
83 4Ac 
sp d® 
da 23 
25. a2 
Be ae 
28 9e 
cD 28 
bc ci 
ba 82 
c? 28 
c5 28 
es35 58 
db 2 
bi fd 
as c2 
28 di 
2c 85 
bi fd 
c7 28 
c& 28 
c& ad 
a9 45 
a9 3d 
bB c6 
4c dB 
c7 28 


A 


28 b8 
c7 aß 
ar .€7 
B& 28 
be: ©1 
if c6 
d® 3a 
33 ad 
88 91 
0o93 ed 
137 
087 eB 
28 eB 
57 28 
be 982 
c? B& 
Bf a2 
4c 78 
z28 a2 
27 18 
ch 28 
bS ch 
33 c9 
54 c6 
11 f® 
a9 2c 
15 c4 
ch ad 
c3 28 
da 96 
ad af 
a3 Se 
82 d® 
a5 68 
29 82 
af 22 
58 28 
ch ad 
71 ad 
a2 81 
85 5b 
eß ca 
bB 22 


'e7 28 


2# c7 





GOTO-Befehl startet schließlich das Informationsprogramm 
(der RUN-Befehl darf dazu nichtbenutzt werden, da er das ge- 
öffnete File schließen würde). Die »T«-Befehle im Informations- 
programm werden ausgeführt, bis der »E«-Befehl Bit 5 setzt 
und den Reassembler startet. Das gesetzte fünfte Bit bewirkt, 
daß externe Label und Tabellenlabel speziell gekennzeichnet 


Das so auf Diskette erzeugte Programmfile kann mit LOAD 
"REASS DEMO”,8 geladen, geLISTet, editiert und assembliert 
(Martin Wehner/ah) 


c498 
c4a8 
c4a8 
c4b2 
c4b8 
c4cB 
c4c8 
c4dB 
c4d8 
c4eB 
c4e8 
c4fB 
c4f8B 
c5BB 
c-588 
c512 
c518 
528 
c-528 
c53B 
c-538 
c542 


- c548 


c-558 
c558 
c5ö6B 
c568 
c578 
c578 
c588 
c588 
c-59B 
c578 
c5ad 
c5a8 
c5bB 
c5b8 
cS5cB 
c5c8 
c5dßB. 
c5d8 
c5eß 
c5e8 
c5f8 
c5f8 
cöDa 
cösQ8 
cö18 
cö6i18 
c628 
c628 
c632 
cu38 
cös42 
c648 
cbs58 
cu58 
cbuöB 
cb48 
c6578 
cs78 
c6s98 
c688 
cs78 
c678 
cödaß 
c6a8 
cöbR 
cöbB 
cöscB 
cöcH 
cödd 
cösd8 
cöseß 
cöse8 


Listing zum »Reassembler«. Bitte beachten Sie die Eingabehinweise auf Seite 54. 
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Ein Haar Fragen an den Aulor-des: a 


AK: Herr Ostermann, auf der CFA 84 in Frank- 

furt haben Sie ALI der Öffentlichkeit vorgestellt. 

Wie war die Resonanz? 

OS: Es hat auf Anhieb positive Tests und begei- 
sterte Anwender gegeben - aber jetzt mit der 
neuen Version geht es erst richtig los. 

AK: Worauf basiert diese Einschätzung? 

OS: ALIwarvon Anfang an ein absolut einzigar- 
tiges Mathematikprogramm, das es in vergleich- 
barer Form bis heute nicht gibt, weder für den 
C64 noch für irgendeinen anderen Computer. 
ALI wird von Eltern und Schülern eingesetzt, 
um teure Nachhilfe zu sparen, neuerdings sogar 
auch, um selbst Nachhilfe zu geben. Kollegen 
benutzen das Programm als Lehrertool. 

AK: Und was hat sich sonst inzwischen getan? 
OS: Ich habe ein volles Jahr Arbeit in die Weiter- 
entwicklung von ALI investiert. 

AK: Mit welchem Ergebnis? 

OS: Vom Ergebnis überzeugen Sie sich am be- 
sten selbst. Wir sind auch dieses Jahr wieder in 
Frankfurt, CFA 85 - Messestand 323. 

AK: Können Sie uns die wichtigste Neuerung 
verraten? 

OS: Bisher bestand ALT’s Job ausschließlich da- 
rin, mustergültig vorzurechnen. Was gefehlt hat 
war die Möglichkeit, auch nach Eintippen der 
Aufgabe selbst aktiv in den Programmablauf 
einzugreifen. 

AK: Und das ist jetzt anders? 

OS: Ja. Es ist nun ohne weiteres möglich, in jede 
Zeile eigene Lösungsvorschläge einzubringen. 
Diese werden kontrolliert und wenn nötig ver- 
bessert. Am Ende gibt es dann eine kleine 
Erfolgsbilanz. 


AK: Wie viele Aufgaben hat ALI in seinem Re- 
pertoire? 

OS: Wie viele Aufgaben hat Ihr Taschenrechner 
in seinem Repertoire? ALI bietet natürlich auch 
selbst Aufgaben an, aber sogar diese werden ge- 
nauso gerechnet, wie wenn Sie eigene Aufgaben 
eingeben, die ALI nie zuvor gesehen hat. 

AK: Spielen Sie damit an auf die Möglichkeit, 
quadratische Gleichungen der Form 
ax?+bx+c = Omitunterschiedlichen Zahlen 
für a, b, und c einzugeben? 

OS: Um Himmels willen! Nein - ALI akzeptiert 
selbstverständlich auch nicht-langweilige Glei- 
chungen. Wie wärs mit 

(3x +5)? -3x(2x-17 =29x -45-(x-2) (x +2)? 
Diese Gleichung wird in etwa zehn Zeilen ge- 
löst. Genau so übrigens, wie ich es als Lehrer an 
der Tafel tue. 

AK: Für welchen Schultyp ist ALI gemacht? 
OS: In erster Linie für Gymnasium und Real- 
schule. Aber gerade auch von einem Berufs- 
schullehrer habe ich einen Brief bekommen, in 
dem das Programm als „in idealer Weise geeig- 
net für alle weiterführenden Schulen” bezeich- 
net wird. 

AK: In welchen Jahrgangsstufen ist ALleinsetz- 
bar? 

OS: Ob Unterstufe, Mittelstufe oder Obestufe - 
ALI fördert jeden Schüler, der mit ihm arbeitet. 
Im Unterschied zu ZENON liegt bei ALI der 
Schwerpunkt allerdings im Bereich der Mittel- 
stufe, was ja schon aus der Bezeichnung Algebra- 
programm ersichtlich ist. 

AK: Wer ist ZENON? 

OS: Zenon hat mit dem Paradoxen von Achill 
und der Schildkröte an das Geheimnis der Infi- 


c97bB 
c?7b8 
c97c9 
c9c8 
c9d8 
c9d8 
cIeB 
c9e8 
c7fB 
c?7f8 
caBdd 
caBß8 
cai® 
caiß 
ca2B 
ca?28 
casd 
cas8 
ca48 
ca48 
ca5d 
cas8 
cas 
cadß 
ca7B 
ca78 
ca8a 
ca88 
ca 
ca978 
caa® 
caa8 
cab® 
cab8 
cac® 
cac8 
cadd 
cad8 
cae®d 
cae8 
caf® 
caf8 
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nitesimalrechung gerührt. Er wird mir nicht bö- 
se sein, daß ich mir seinen Namen ausgeliehen 
habe für ein Kurvendiskussionsprogramm, das 
ganz speziell auf die Anforderungen von 10. 
Klasse und Oberstufe zugeschnitten ist. 

AK: Zurück zu ALI. Welche Aufgaben sind es, 
die ALI löst? 

OS: Das geht vom Ausrechnen verschachtelter 
Klammern über negative Zahlen, Ungleichun- 
gen, Termvereinfachungen, binomische For- 
meln, Ausklammern und Faktorenzerlegung, 
Bruchgleichungen, lineare und quadratische 
Gleichungen bis hin zur Nullstellenbestim- 
mung höheren Grades. Mit der Variablen x bis 
zur Potenz x? beherrscht ALI wirklich die ge- 
samten Grundlagen der Algebra. Darüber- 
hinaus erstellt er Wertetabellen, zeichnet Gera- 
den und Parabeln, jetzt übrigens in hochauflö- 
sender Grafik. Eintippen der Aufgabe genügt... 
AK:... und dann geht alles nachvollziehbar, 
Schritt für Schritt. Unter Einbeziehung der Lö- 
sungsvorschläge des Benutzers? 

OS: Wenn gewünscht. So ist es. Dazu gibt es ein 
ausführliches Handbuch mit den grundlegenden 
mathematischen Lösungsverfahren. Undals Zu- 
gabe Trick 17. 

AK: Die wichtigste Frage zuletzt: Was unter- 
scheidet ALI von vergleichbaren Mathematik- 
programmen? 

OS: Es gibt kein vergleichbares Mathematikpro- 


gramm. 
* x x 


ALI - das intelligente Algebraprogramm, C64 
Diskette mit Handbuch DM 99,-* 

Handbuch vorab DM 19,-* 

Eintausch neue Version gegen alte DM 29,-* 
* unverb. Preisempfehlung. 

Bei Vorkasse bar oder Scheck versandkostenfrei. 


Bestellungen - auch telefonisch - direkt an: 


HEUREKA®-TEACHWARE 
Dipl-Phys. Peter Ostermann 
D-8000 München 21 
Wastl-Witt-Str. 46 @ 089-7063 83 
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Herzoperation 


Haben Sie sich eine Kombination von 
Hypra-Load und Hypra-Save ge- 
wünscht? Bitte, hier ist sie, und als 
Draufgabe gibt es sogar noch das DOS 
51., eine Super-Centronics-Schnitt- 
stelle, Funktionstastenbelegung und 
einiges mehr. 


Das Betriebssystem des C 64 umfaßt, einschließlich des 
Basic-Interpreters 16 KByte, die in zwei ROM-Bausteinen auf 
der Computer-Platine untergebracht sind. Die in diesen ROMs 
abgespeicherten Maschinenprogramme könnte man auch als 
das »Herz« des C 64 bezeichnen, denn ohne Betriebssystem 
ist der Computer nichts als eine mehr oder weniger sinnvolle 
Ansammlung von elektronischen Bauteilen. Durch Austausch 
des Betriebssystems (Kernal-ROM) könnte man beispielswei- 
se den gesamten C 64 so verändern, daß ernur noch äußerlich 
dem Original gleicht. So weit wollen wir aber nicht gehen, denn 
der C 64 soll auch nach der Veränderung des Kernal-ROMs 
noch mit den meisten Programmen für den unveränderten 
Computer funktionieren. Das Betriebssystem wird deshalb 
nicht komplett ersetzt, sondern nur einzelne Teile davon ver- 
bessert. Dazu gehört das schnellere Laden (Hypra-Load), das 
schnellere Speichern (Hypra-Save), eine Centronics- 
Schnittstelle am User-Port und das DOS 5.1 einschließlich ei- 
ner Funktionstastenbelegung. Da man aus 8 KByte ( 
der Bereich $EO00-$FFFF. wird verändert) natürlich nicht 
mehr machen kann als 8 KByte, müssen Teile des alten Be- 
triebssystems entfallen. In diesem Fall ist das die Ansteuerung 
der Datasette und, falls man eine Super-Centronics Schnitt- 
stelle haben möchte, auch die RS232. 


Vier Programme in einem 


Das hier abgedruckte Basic-Programm (Listing) erzeugt 
selbständig eines der vier zur Auswahl stehenden neuen Be- 
triebssysteme. Das geänderte Betriebssystem steht nach feh- 
lerıosem Durchlauf des Programms im Speicherbereich 
$8000 bis $YFFF ihres C 64 und wird gleichzeitig als Maschi- 
nenprogramm mit dem Namen »Superkernal« auf Diskette ge- 
speichert. Um das neue Betriebssystem zu aktivieren, muß 
das Maschinenprogramm »Superkernal« auf einem EPROM 
vom Typ 2764 gespeichert werden. Dieses EPROM ist dann 
das neue Kernal-ROM, das an die Stelle des Original-ROMs 
auf den Steckplatz U4 des C 64 gesetzt wird (Achtung: Garan- 
tieverlust). Da 2764-EPROM und Original-ROM eine unter- 
schiedliche Pin-Belegung haben, braucht man dazu einen 
Adaptersockel (Tabelle 1). | 

Aus dem Wissen heraus, daß jeder seinen C 64 für eine an- 
dere Anwendung benutzt, haben wir die Wahl zwischen vier 
verschiedenen Kernal-Versionen vorgesehen. Außerdem kön- 
nen Sie sich die gewünschte Farbkombination der Bildschirm- 
darstellung einstellen und zwischen Text- oder Grafikmodus 
nach dem Einschalten wählen. Um Ihnen die Wahl zu erleich- 
tern, ist hier eine kurze Beschreibung der einzelnen Kernal- 
Versionen. 

Kernal 0: Hypra-Load/DOS 5.1/Funktionstastenbelegung/ 
Renew/RS232 

Kernal 1: Hypra-Load/DOS5 .1/Funktionstasten/Super- 
Centronics/Renew 


104 I8ar 


Hypra-Load/DOS5.1/Funktionstasten/Hypra- 


Kernal 3: 
Save 

Kernal . 4: Hypra-Load/DOS5.1./Funktionstasten/Hypra- 
Save/Centronics klein 


Die vier Betriebssysteme sind nicht grundsätzlich verschie- 
den. Allen gemeinsam ist die Hypra-Load-Routine und das 
DOS 5.1, das Sie von der VC 1541 Demodiskette her kennen. 
Außerdem wurde eine Old- beziehungsweise Renew-Funktion 
implementiert. Mit den Tasten CTRL und STOP (bitte beide Ta- 
sten gleichzeitig drücken) ist ein durch NEW oder Reset ge- 
löschtes Basic-Programm wieder da. Außerdem sind die 
Funktionstasten, deren Belegung Sie in gewissen Grenzen mit 
einem Monitor selbst wählen können (Sie finden die Belegung 
nach dem Durchlauf des Basic-Programms in dem Bereich 
$9B97-$9BCF) überall vorhanden. Bitte achten Sie darauf, 
daß der Funktionsstring immer von zwei Funktionstasten- 
Codes ($85-$8C) eingegrenzt ist. Bei den Funktionstasten. 
wurde ein Punkt gegenüber Hypra-Perfekt (Ausgabe 4/85) 
verändert: Sie sind nach dem Einschalten des Rechners zu- 
nächst nicht belegt, wodurch gekaufte Programme jetzt ein- 
wandfrei laufen. Eingeschaltet werden die Funktionstasten 
ganz einfach durch »CTRL +«. Wenn man sie nicht mehr 
braucht, ist es möglich, sie durch »CTRL—« wieder abzuschal- 
ten. 

Wenn Sie Hypra-Save gewählt haben, ist folgendes zu be- 
achten: Nach dem Speichern eines Programms muß bei weite- 
ren Speichervorgängen die Laufwerknummer angegeben 
werden. Ansonsten funktioniert Hypra-Save wie es in der Aus- 
gabe 8/85 beschrieben wurde. Außerdem können jetzt die 
Besitzer von Druckern mit Centronics-Schnittstelle aufatmen: 
Der User-Port wurde zur vollwertigen Centronics-Schnittstelle 
umprogrammiert. Der Drucker kann einfach so angesprochen 


MUWERGER, als wäre er am seriellen IEC-Bus angeschlossen. 


Zwei Versionen stehen hier zur Verfügung: Diejenigen, die auf 
Hypra-Save nicht verzichten können, müssen sich aus Platz- 
gründen leider mit einer abgemagerten Version zufrieden ge- 
ben, die das Drucken der Commodore-Grafikzeichen nicht er- 
laubt. Ohne Hypra-Save ist eine Centronics-Schnittstelle mög- 
lich, die auch die Grafik- und Cursorsteuerzeichen druckt! Un- 
ter Geräteadresse 5 werden die Cursorsteuerzeichen so wie- 
dergegeben, wie man es vom Bildschirm gewohnt ist— als re- 
verse Zeichen. Ein korrekter Listingausdruck ist somit auch 
ohne teures Interface möglich. Sollten Sie keinen Epson oder 
einen vergleichbaren Drucker besitzen, so tragen Sie bitte in 
den Zeilen 1817 bis 1823 die für Ihren Drucker gültige Um- 
schaltsequenz für den Bitmustermodus ein, wobei die Adres- 
se 28595 die Zeichenzahl der Umschaltsequenz enthalten 
muß (Achtung: nicht mehr als fünf Zeichen). Bei Öffnen des 
Druckerkanals mit der Sekundäradrese O (oder ohne Sekun- 
däradresse) wird im Großschrift-/Grafikmodus gedruckt. 
Drucken im Textmodus wird wie bei den Commodore- 
Druckern durch Sekundäradresse 7 erreicht. 

Durch die mögliche Veränderung der Voreinstellung des 
Textmodus (große und kleine Buchstaben) anstelle des übli- 
chen Grafikmodus, wird auch die Centronics-Schnittstelle 


beeinflußt: Beim Öffnen eines Druckerkanals mit der Sekundär- 


adresse O (oder ohne) arbeitet auch der Drucker im Textmo- 
dus mit großen und kleinen Buchstaben. Durch die Sekundär- 
adresse 7 wird er in den Grafikmodus umgeschaltet. Zum An- 
schluß eines Druckers mit CGentronics-Schnittstelle benötigen 
Sie übrigens nur ein einfaches Kabel, dessen Bauteile zusam- 
men weniger als 40 Mark kosten. Wie Sie den User-Port mit 
dem Drucker verbinden müssen, ist in Tabelle 2 beschrieben. 
Ein Tipnoch zum Schluß: Das DOS 5.1 läßt sich mit dem Befehl 
@Q abschalten. Um das DOS 5.1 danach wieder zu aktivieren, 
brauchen Sie nur die Taste F6, beziehungsweise den Befehl 
SYS 61844 im Direktmodus einzugeben. 
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Obwohl Super-Kernal den Speicherbereich des Betriebssy- 


26poliger 24poliger > 2 3% 
ne Se stems schon fast komplett ausnutzt, ist sicherlich noch die ei- 
1,28, 27, 2.  — — ne oder andere Erweiterung denkbar — man darf gespannt 
EEE EEE sein. Falls es Ihnen nicht möglich sein sollte, das Kernal selbst 
3 1 zu brennen, besteht die Möglichkeit, fertige Betriebssystem- 
4 E EPROMs mit Adapterplatine zu erhalten. Lesen Sie dazu unse- 
> 3 ren Hardware-Leserservice. 
- - (Helmut Eyssele/aw) 
8 6 
9 7 
‚10 8 USER-PORT-CENTRONICS 
11 9 A GND 
12 410 B FLAG—BUSY 
13 11 c Er 
14, 20 12 D DI 
15 13 E D2 
16 14 F 2. 
17 15 H D4 
18 16 J DS 
y—j K ae 
nn Tabelle 1. “ D7 
21 — — 19 Das M PA2—STROBE 
22 777m 20  Verbindungs- 
= Fer 7-7 EEE NEMO ER Zn — schema Tabelle 2. Verdrahtungsschema der Centronics- 
“a = für den Schnittstelle am User-Port (Stecker für User-Port: TRW 
1.28. 27.26 __ 04  Adaptersockel 251-12-50-170; für Drucker: 36poliger Amphenol-Stecker; 
ar, Kabel: Flach- oder Rundkabel bis 1,5 m) 
1208 POKE 564,128: POKE 55,8: CLR <146> 1254 INPUT "{4SPACE}BETRIEBSSYSTEM" ; BEA <B82> 
1012 REM <Q54> 1268 REM <a5B> 
102B REM x RERRRRERRIRHHH HR HH HH 148 > 1281 IF BE#Z<>1 THEN 1308 = 2 
1858 REM #%** HR#%* <877> 1252 PRINT "{DOWN}" <174> 
1848 REM **#* VIER VERSCHIEDENE *r% <B25> 1243 PRINT SFC(4)"B =: FUER EPSON DRUCKER" <1777? 
10958 REM *** BETRIEBSSYSTEME Beer <209}> 1254 PRINT SFPCt(4)"1 : FUER EPSON KOMPATIBL 
106D REM xxx „r <BR ONLINE :pown}" <B66> 
1070 REM x*** - VON ***  <131> 1259 INPUT "{4SPACE}BRUCKERART" 5 DRA <B40> 
1080 REM *x** Ben <127> 1308 REM <B72> 
19978 REM #** HELMUT EYSSELE *R% <1197> 13518 FRINT " 4DOWN,„45PACE>"; <254> 
11902 REM #** RER <147> i328 PRINT "KOPIEREN DES Rüon INS Ran!" <234 > 
111G REM #8 HH HEREIN <2352> 1350 PRINT <162> 
1128 REM <x164> 1348 FOR I=-95B8 TOD 1887 232> 
115@ PRINT CHR#(14) <B95> 1358 = READ X: POKE 1,Xz S=8#+X <146> 
11428 PRINT "{CLR„SDOWN}" 2133 1358 NEXT I <174> 
1158 PRINT "{2SFACE>YVOREINSTELLUNG NACH"; <128> 1378 IF S=-4359 THEN 1418 <QD73> 
11&8 FRINT " DEM EINSCHALTEN: {DOWN}F" <2887> 15908 FRINT "FEHLER IN DEN BATAS DER "; <185> 
1178 PRINT SPC(4)"1 =: SRAFIKMODUS" <198> 15398 PRINT "KOPIERROUTINE !!": END <aS51> 
118@ PRINT SPC(4)"Z : IEXTMODUS {DOWN}" <@53> 1400 DATA 169,224,1608, 8,133, 96,132, 95 <158> 
1178 INPUT "{4S5FACE}MAODUS" ; MOA <218> 14981 DATA 1689,255,132, 78,152, 91,169,159 <B18> 
1288 PRINT "{DOWN}" <132> 1402 DATA. 133, 89,152, 88, 32,191,163,173 - £<129> 
1281 FRINT SFC(4)" B : SCHWARZ {2SPACE}"3 i2I 7 1485 DATA 255,255,141,255,159, 976 2LS> 
1282 PRINT "8 : DRANGE" <B&1> 1418 SYS 9808: REM KERNAL KOPIEREN <249%> 
i285 PRINT SPC(4)" 1 : WEISS{A4SPACE}"; 2337 1429 REM 2123 
1284 PRINT "9 2 BRAUN". <251> 1458 OF=8192: REM OFFSET BEI POKE <214> 
1285 FRINT SPC{i4)" 2 : ROT{SSFACE}"; <147> 1440 IF MO%=2 THEN 14735 j <128> 
1284 PRINT "iQ = HELLROT" <164> 1461 : EMf=" BASIC BYTES FREE"+CHR#$ (13) <178> 
1287 FRINT SPC(4)" 53 : TUERKIS{T2SPACE}"; <1B1> 1462 : EMF=EMF+CHRE (B) +CHRS$& (147) +CHR#$ (15) <Q972> 
1288 PRINT »11 = GRAU 1" <zı117> 1453 : EME=SEME+" \XZSPACE FF H#" <B75> 
1287 PRINT SPC(4)" 4 : VIOLETT{2SPACE}"; xB464 > 1454 : IF BEA AND 1 THEN 1448 <DBös5> 
-1218 PRINT "Ii2,..: BRAU 2" de 8 1465 : EMF=-EMF+"** Cö54 DOS-HYPRA-BASIC" <182> 
1211 FRINT SPC(4)" 5 : GRUEN{4SFACE}"; SEERF 1466 : EMt=-EMF+" V2 ner " <a77> 
1212 PRINT "13 = HELLGRUEN” <B23> 1467 : GOTO 1478 <119> 
1215 PRINT SPC(4)" 4 : BLAU{SSPACE}"; <285> 1458 : EMt=EM#++" C64 DOS-HYPRA-CENT-—-" <9977> 
1214 PRINT "14 =: HELLBLAU" <25B> 1469 : EM$=EMFH" BASIC V2 ##" <QB1B> 
1215 PRINT SPEt43"”" 7 2 GELBTSSPACE}"3 <a98> 1478 : EMF=-EMF+CHRE (135) +CHR# (15) 19712 
121& PRINT "15 : GRAU 3{DOWN}" <B64> 1471 : EM$=EM$+" #44K RAM SYSTEM "+CHR$(@) <992> 
1217 INPUT "{A4SPACE}ZEICHENFARBE" ; CO% <118> 1472 GOTO 1484 <208> 
1218 INPUT " 4SPACE >} RAHMENFARBE ";RCH <2380> 1473 : EM#=" BASIC BYTES EREE”+CHRE (15) 8727 
1217 INPUT "{4SPACE}HINTERGRUNDFARBE"3ZHCH <199> 1474 : EM$=EM$+CHR$ (B) +CHR$(147)+CHR$ (15) <194> 
1258 FRINT "{DOWN}”" 182> 1475 : EM$=EME+H" TSSFACEIRRR" <287 °F 
1251 FRINT SFC{4)"@ = MIT R32S52-SCHNITTSTE 1476 : IF BEA AND 1 THEN 1488 <188> 
LLE" 2153 1477 2 EM$=EM$+"x%* C44 DOS-HYPRA-BASIC" <B8B&4> 
1252 FRINT SFPC(4)"1 = MIT EENHTRONTIES-SCHNI 1478 : EMF=EMF+" VI RH#8 " <a877> 
TTSTELLE" <028> 1479 : G0TO 1482 <197> 
1253 PRINT SPC(4)"2 : MIT HYPRA-SAVE" <153> 1488 : EM$=EM$+" C44 DOS-HYPRR-LENT-" <193> 
he Nee EB A re Listing. Basic-Programm zum Erzeugen eines neuen 
BGEMAGER- <181> : i te 
1255 PRINT SPC (4) "{4SPACE}TER CENTRONICS-S Betriebssystems. Bitte beachten Sie die Eingabe- 
CHNITTSTELLE {DOWN }" <109> hinweise auf Seite 54 | 


Ausgabe 11/November 1985 


Be ZzNap ER 


64er-online.net 





1481 
1482 
1483 
1484 
1485 
1486 
1508 
1518 
1528 
15380 
1540 
1558 
1560 
1578 
1588 
1598 
1608 
1618 
1528 
1621 
1522 
1623 
1624 
1425 
1524 
1527 
1428 
1429 
1630 
1531 
1632 
1533 
1634 
1435 
1636 
1637 
1538 
1639 
1540 
1541 
1642 
1643 
1644 
1645 
1646 
1547 
1548 
15497 
1808 
1881 
1882 
18053 
1894 
1805 
1805 
1897 
1818 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1880 
1881 
1882 
1883 
1884 
1885 
1884 
1887 
1888 


1987 
19978 
1788 
1981 
1982 
19853 


: EMFt=EM$+"BASIC V2 #.r" 
: EM$£=EM$++CHR$ (13) +CHR# (13) 

: EM$=EM$+" 54K RAM SYSTER "+CHR#(D) 
FOR I=1 TO 78 

: FOKE 25594+0F+1,ASC(MIDSIEMF,I,1)) 
NEXT I 

REM 

REM FARBEN UND ZEICHENMODUS 

REM EINSPEICHERN 

REM 

POKE 2597B97+0F „C0% 

FOKE 27845+0F ,RC%: POKE 27884+0F „HC%A 
IF MO%A4=2 THEN FOKE 27857+0F,22 

REM 

REM DATA ZEILEN LESEN 


REM 

PRINT "<2DOWN,4SPACE}"; 

PRINT "LESEN DER 2ATA ZEILEN! {DOWN}"” 
REM 

REM HYPRA-LOAD UND DOS 5.1 

REM 

BlL=-8B: GOSUB 19B8 

REM 

REM RS232 ELIMINIEREN 

REM 


IF BEZ<>B THEN GOSUB 1988 


IF BEZ = THEN GOSUB 1928 

REM 

REM HYFRA-SAVE 

REM 

IF {BE% AND 2)=2 THEN GOSUB 1788 
IF (BEZ AND 2)=8 THEN GOSUB 1928 
REM 

REM CENTRONICS ALLGEMEIN 

REM 

IF (BEZ AND i)=1 THEN GOSUB 1908 
IF (BEZ AND 1)=B THEN GOSUB 1928 
REM 

REM CENTRONICS ABGEMAGERT 

REM 


IF BEA =-5 THEN 
IF BEA<>3 THEN 


GOSUB 1788 
GDSUB 1728 


REM 

REM CENTRONICS AUSFUEHRLICH 

REM 

IF BEA =1 THEN GOSUB 1928 

IF BEA<>1 THEN GOSUB 19728 

REM 

IF MDO%A=2 OR (BEA AND 1)=B THEN 1818 
REM 


REM VOREINGESTELLTEN AUSGABEMODUS 
REM DER CENTRONICS-SS AENDERN 
REM 

POKE 29727+0F „129: 
FOKE 29773+0F, 9: 
POKE 29776+0F, 41: 
REM 

IF BEZ<>1 THEN 1888 
REM 

REM UMSCHALTSEQUENZ IN DEN 

REM GRAFIKMODUS EINSPEICHERN 
REM 

IF DR/<>@ THEN 1828 
POKE 28595+0F, 5: 
FOKE 29222+0F „42: 
POKE 29224+0F, 8: 

F DR%<>1 THEN 1888 
POKE 28595+0F, 4: 
POKE 29222+0F „75: 
POKE 29224+0F, @ 
REM ABSPEICHERN $89B8-9FFF 

SYS 57812" @: SUPERKERNAL",8:POKE 193,0 
POKE 194,12B:POKE 174,88@:POKE 175,168 
SYS 62957 

PRINT "{S5DOWN}"SPC(16) "FERLIG !" 
FRINT " {4DOWN}" 

PRINT SPC{7)"DAS NEUE BETRIEBSSYSTEM" 
PRINT "{12SPACEISTEHT IM BEREICH " 
PRINT" {7SPACE}FBBUB-IFFF UND AUF BISK 


POKE 29730+0F ‚128 
POKE 29774+0F, 64 
POKE 29777+0F ,191 


POEKE 
FOKRE 
POKE 


29221+0F „27 
29223+0F, 4 
29225+0F, ® 


POKE 
POKE 


29221+0F ,27 
29223+0F, 8 


UT mu T Be TB re 7 Be 7 u 7 


FRINT SPC (15)" (52768-408959) " 

END 

REM 

REM LESEN UND SPEICHERN DER DATAS 
REM 
BL=BL+1: 


READ A: IF A=B THEN RETURN 


106 Sp 


<B15> 


<203> 
<199> 
<115> 
<175> 
<Q44> 
<036> 
<114> 
<@18> 
<B66> 
<073> 
<156> 
<250@> 
<198> 
<Q45> 
<128> 
<027> 
<199> 
<158> 
<067> 
<169> 
<a55> 
<162> 
<103> 
<164> 
<078> 
<228> 
<167> 
<155> 
<169> 
<073> 
<B6Q> 
<172> 
<111> 
<174> 
<B69> 
<Q6A> 
KAIFS 
<178> 
<179> 
<B75> 


183,0 


<225> 
<184> 
9a79> 
<156> 
<1897> 
<085> 
B895> 
<122> 


‚<176> 


<088> 
<200 > 
<128> 
<227> 
394 > 
<171> 
<096> 
<142> 
<@19> 
<B997> 
<248> 
<B95> 
<aF79> 
293, 
2149} 
<067 > 
<143> 
<128> 
“23512 
<224 > 
<B90> 
<198> 
<254> 
<a03> 
<B197> 
sB55> 


<247> 
<207> 
<114> 
184> 
<QB68> 
<185> 
<aB6> 


1904 
1905 
1906 
1907 
1908 
1709 
1918 
1911 
1912 
1913 
1914 
1915 
1928 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1938 
1931 
1932 
1933 
1934 
1935 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2202 
2108 
zım1 


a 


2206 


2201 


2182 


2408 
2481 
2402 
24053 
2404 
2485 
2502 
2501 
2502 
2600 
28501 
2802 
2708 
2701 
27802 
2888 
2981 
2982 
28053 


2980 


2981 
2992 
Bin ie) 
3881 
3082 
5823 
3204 
3285 
3206 
3207 
3100 
3101 
3192 
3103 
3104 
3185 
510% 
3197 


FR 


IF 


PRINT 


READ B : 
READ Pi: 
P2= 


REM ANZAHL DER BYTES 
REM PRUEFSUMME 

D 
INT 


"Bl OCK"; BL; " {2SPACE}"; 


FOR I=A TO A-1+B 
READ D: 
NEXT I 


POKE I+OF,D: P2=P2+D 


P1i<>P2 THEN 1915 
"OK": GOTO 1983 


PRINT "PRUEFSUMME FALSCH: ";P2 


GET A$: 


GOTO 
REM 


IF At="" THEN 1914 
19785 


REM UEBERLESEN VON DATAS 


REM 


BL=BL+1: 
READ B : 
READ Pi: 
P2=® 


PR 


IF 


PRINT 
PRINT 


GET Af: 


GOTO 
REM 


READ A: IF A=8 THEN RETURN 
REM ANZAHL DER BYTES 
REM PRUEFSUMME 


INT "BLOCK"; BL; " {2SPACE}"; 


FOR I=A TO A-i+B 
READ D: 
NEXT I 


P2=P2+D 


P1i<>F2 THEN 1955 
"OK": GOTO 1725 
"PRUEFSUMME FALSCH: ";P2 
IF A$="" THEN 1934 
1923 


REM AB HIER DATAS 


REM 


REM DATAS VON HYPRA-LOAD 
REM UND DOS 5.1 


REM 


 ————o———— {oo lol 
TTITITTITTITTTTTTTouTTTDDmo 


mo —  — — — — 0. 
—_— nom mm m ı 


I — — — — BLOCK 1 
25499 ,2,287: REM $E39B-$E39C 
45,242 
25642,1,114: REM $E42A 
114 
25662,1, 75: REM #E4S3SE 
975 
25783,531,4693: REM $E4B7-$E4DS 
165,186, 32,177,255,169,111,133 
185, 32,147,255,16@0, 8,185, &2 


5, 32,168,255,2090,1968,1853,144 


wi 32,174,255, 76,254,242 
=== --- === 222022202 BLOCEKE ey 
26994,8,1525: REM $ESEE-#ESFS 


32,235,240,134,198,189,255,248 
BLOCK & 
27455,3,378: REM $EBSF-$EB41 
76, 52,250 

BLOCK 7 
27511,2,373: REM $EB77-$EB78 
123,258 

BLOCK 8 
REM $ECE7-$ECEF 


17,208,141, 17,288 


27877,9,1148: 
169,239, 45, 
9 
BLOCK 3 
28564,3,39&6: REM $EF94-$EFI6 
76, 65,255 
BLOCK 1ı@ 
REM +F@D9-#F195 
76,207, 34, 42, 34, 44, 56, 44 
49, 58, PB, 88, 32,124,248, 76 
49,245,162, 8,189,216,248, 32 
210,255,2532,224, 11,288,245,162 
54,120, 96, 2. 8,..0,.285533 
82, 85, 78, 58, 


28889,45,44354: 


BLOCK 11 
6248: REM $F179-$F1A7 
76, 19,247, 37, 47, 94, 95, 64 
35, 81, 36, 0,243,243,243,245 
2590,252,245,25@0,141,141,141,148 
161, 60,135,188, 76, 51,245,162 
2,189,149,241,149,124,202, 16 
298.129, 8.141. 408... % 02 
BLOCK 


29049,47, 


22° 


<B&7> 
<054> 
“111? 
<1997> 
x215> 
<232> 
<028> 
“B24> 
<130> 
<244 > 
<255> 
<157> 
<204 > 
<216> 
<2B5> 
<B26> 
<B87> 
<Q74> 
<151> 
<219> 
<2355> 
<939> 
<B4B> 
<198> 
<1&6> 
<B98> 


<02B> 
<241> 
<a28> 
B65> 
<B22> 
<Q78> 
<228> 
<195> 
<B28> 
<072> 
<B55> 
<Q&a2> 
<B97.1> 
<250> 
<117> 
<2097> 
<0&5> 
“2117 
<225> 
<148> 
x255> 
<@16> 
<244> 
<144> 
<054> 
<252> 
<231> 
<147> 
<215> 
<aS55> 
<B0u97> 
<a9&> 
<122> 
<125> 
<2B6> 
<159> 
<B&4> 
<242> 
<sa21> 
<@789> 
<221> 
<235> 
<136> 
<152> 
<128> 
<164> 
<1973> 
<254> 
<192> 
<161> 
<B355> 
<x237> 
<x147> 
<282>. 
<B75> 
<870> 
<236> 


Listing. Basic-Programm zum Erzeugen eines neuen 
Betriebssystems (Fortsetzung) 
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X. 


EC ER_ 


mnn- 


ee 


. 
; 
N 
{ 
{ 
f 


Senn 
5 PT». 


= ven, 


nee ra ent 
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3208 
3201 
>22 
3203 
3204 
3308 
33@1 
3302 
3303 
3408 
3401 
3402 
3500 
35801 
3592 
3593 
3584 
3595 
3596 
3602 
Saudi 
3682 
3603 
3684 
3605 
3606 
3697 
3608 
3689 
3610 
3708 
3781 
3702 
3703 
3808 
3981 
3882 
3700 
3901 
3982 
3993 
3984 
3985 
3986 
3907 
3788 
3989 
3910 
3911 
3912 
3913 
3914 
3915 
391& 
40800 
4901 
4002 
4003 
4108 
4191 
4182 
41853 
4194 
4195 
410% 
4107 
4108 
4200 
4201 
4202 
4388 
4301 
4382 
4393 
4384 
4385 
4305 
4397 
4388 
43097 
4310 
4311 
4312 
4313 
4314 
4315 


DATA 29157,20,2166: REM $F1ES-#F1F7 xB76> 4316 
DATA 76, 19,247,169, 15, 32, 22,231 «1763 4317 
DATA 169, &, 32,144,255, 32,142,166 <®&6B> 4318 
DATA 76,174,167, ® <254> 4319 
REM zs===2=:==2=2=2=2=22=2=2=2=2==== BLOCK 13 <1297> 4320 
DATA 29225,79,1125: REM +F22A-#F232 <165> 4521 
Data. 76, 19.247, 32.102.281, 76, = «1173 4322 
DATA 228 <19797> 4323 
REM =======z22zz=z2m=m===== BLOCK 14 <240 > 4324 
DATA 29295,3,342: REM $F24F-#F271 <Böl> 4325 
DATA 7&, 19,247 <B197> 4326 
REM ======-====2=2==2======= BLOCK 15 €117> 4327 
DATA 29384,37,4865: REM +F2C8-$F2EC <2358B> 4328 
DATA 76, 19,247,165,1864, 32,188,255 <971> 4329 
DATA 169,111,133,185, 32,15@0,255, 32 <195> AZSQ 
DATA 165,255,281, 15,248, &, 32, 22 <B83> 45331 
DATA 251, 76,215,242, 32, 22,231, 32 <148> 4352 
DATA 171,255, 76,121, @ <189> 4333 
REM ========2===2=22==2===== BLOCK 16 <255> 4334 
DATA 29579,72,8418: REM +F38B-$+F3D2 <221> 4335 
DATA 76, 19,247,166, 43,164, 44,173: <216> 4336 
DATA 61, 3,281, 37,288, 3,169, 1 <227> 4337 
DATA 44,169, B,133,185,169, B, 32 <®iß> 4338 
DATA 213,255,176, 28,173, 41, 3,201 <135> A339 
DATA 37,240, 21,165,175,133, 46,165 <177> 4340 
DATA 174,133, 45, 32, 89,166, 32, 51 <1088> 4341 
DATA 165,173, 61, 3,201, 47,208, 3 <219> 4342 
DATA 76,134,227, 76,232,241,165,186 <B71> 43453 
DATA 32, 12,237,169,111, 76,185,237 <897> 4344 
REM z=e=2=2==2==2=22z22=2z2zzmemm BLOCK 457 135> 45345 
DATA 29859,11,1586: REM $F4AD-$F4B7 <1895> 4346 
DATA 2@1, 4,176, 7,169, 8,133,186 <185> 4347 
DATA 234,234 ,2534 <163> 45348 
REM s=s==2=2=2222z222=2=2====== BLOCK 18 <BD5 > 43497 
DATA 29945,8,919: REM £F4F9-$F590 <B053> 4350 
DATA 173,255, 53, 48, 3, 76,114,247 <B92> 4351 
REM z=z=====2=2=2zzmm=m==m=m== BLOCK 19 <135> 4352 
DATA 32883,114,14544: REM SF533-$F5A4 <121> 4355 
DATA 155,166,154,1657,185,189, 1, 1 <249> 4354 
DATA 291,230,248, 4,291,140,2B8, 23 <@85> 4355 
DATA 189, 2, 1,281,167,248, 4,201 <137> 4356 
DATA 164,288, 12,165,166,162, 4,221 GaEAa>onLNnaBsr 
DATA 124,241,240, 17,202, 16,248,165 <157> 4358 
DATA 166,166,167,2@1, 58,176, 3, 76 <217> 4359 
DATA 128, DB, 76,138, 9,134,165,141 <206> 4360 
DATA 61, 3, 32, 99,252,166,165,169 <i88B> 4361 
DATA 62,133,187,169, 3,133,188,173 <222> 4362 
DATA 60, 3,133,186,189,133,241, 72 <199> 4363 
DATA 189,141,241, 72, 96,162, 2,189 <@79> 4364 
DATA 171,227,149,124,202, 16,248, 76 <B7B> 4365 
DATA 134,227, 32, 89,225,169, 13, 32 <@92> 4366 
DATA 22,231, 76,203,242, 77, 45, 69 <165> 4367 
DATA 5979, 4 067> 4368 
REM ===============2===== BLOCK 28 <235> 4369 
DATA 58191,11,1586: REM #FSEF-#FS5SFY s145> 4378 
DATA 2u1, 4,176, 7,169, 8,133,186 <151> 4371 
DATA 234,234 ,254 <207> 4372 
REM ======222z2zz222=22>o-— BLOCK 21 <B9B> 4373 
DATA 39297,54,6519: REM #F459-+Fö8BE <B26> 45374 
DATA 32,115, B,240, 29,201, 34,240 <123> 4375 
DATA 25,201, 61,248, 4,201, 58,208 <@87> 4376 
DATA 2,162,255,153, 62, 3,232,208 <1653> 4377 
DATA 76,158,252,162, 76,134,124, 76 <222> 4378 
DATA 8,175,152,185,162, 76,134,124 <@49> 4379 
DATA- 7 32,121, W228, . 3, 324115, DB - Z1S1> 4388 
DATA 288,251, 96, 77, 45,87 <13B> 4381 
REM s====:==z=2=2=2=2===2===== BLOCK 22 <237> 4382 
DATA 328354,1,248: REM £F492 <225> 45383 
DATA 248 <114> 4594 
REM ======z2=2222=22==2===-=== BLOCK 23 <197 > 45385 
DATA 38598,942,12152&6:REM$+F72C-$FADI <B31> 43865 
DATA 32,281,2453,158,2553,185,143,245 <143> 4387 
DATA 32,221,237,208,2988,247,165, 28 <183> 4388 
DATA 32,221,237,165, 21, 32,221,237 <229> 4389 
DATA 169, 30, 32,221,237,16508, 3,177 <134> 4398 
DATA 172, 32,221,2537,200,192, 39,144 <179> 453971 
DATA 244, 32,254,237, 24,165,172,105 <182> 4392 
DATA 3@,133,172,144,  2,230,173, 24 <242> 4393 
DATA 165, 29,195, 38,133, 2@,144, 2 <975> 4394 
DATA 238, 21,202,208,187, 96,168, 8 <@52> 4395 
DATA 177,187,201, 36,208, 26, 76,208 <2@5> 4396 
DATA 251, 32,2@1,243,160,251,185,287 <B5i> 4397 
DATA 251, 32,221,237,200,208,247, 32 <B46> 4398 
DATA 254,237, 32,2397,237, 76,137,248 <@98> 4399 
DATA 169,143,133,172,167,248,133,173 <®@S> 4498 
DATA 169, 9,133, 28,169, 3,133, 21 <183> 4401 


108 Zap 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


162, 15, 32, 44,247, 32,201 ,243 
160,251,185,165,244, 32,221,237 
200,208,247,173, @,221,133,171 
32.251,234, 32,250,247, 32, 13 
248, 32,125,247, 8,166,174,164 
175, 40, 88, 96,169, 39,141, 8 
221, 44, 0,221, 88,251,169, 7 
141, B,221,162, 7,202,208,253 
162, 4,173, 8,221, 42, 42,182 
176,106,102,176,234,234 , 202,288 
241,165,176, 73,255, 96,169, 7 
141. : 8,221, 32,251,237,138,.182 
255,234 ,234 ,234 ,202,208,252,178 
96,128,169, 1,133,167,168,255 
32,234,253,192,255,208, 3, 76 
228,240, 32,208,247,133,169, 32 
208,247,133,168,165,167,240, 38 
32,208,247, 32,298,247,169,252 
234,234,164,169,208, 29,198,168 
198,168,198,168,169,254, 24,229 
168,133,170, 76, 89,248,165,169 
208, 7,1998,168,169, 0, 76, 66 
248,169,254,133,168,160, &, 32 
208,247,145,174,238,174,208, 2 
238,175,198,168,208,241,162, ® 
134,167,165,169,2908,169,198,17® 
240, 6, 32,208,247, 76,114,248 
169, 16, 13, 17,288,141, 17,288 
165,171,141, 9,221,169, 64,133 
144, 24, 96,165, 8, 41, 6,281 
2,240, 3, 76,158,253,169, 5 
1335, 9,162, 98,134, 75,162, @ 
169, 82,133, 36, 32, 86,245, 88 
254,184,173, 1, 28,197, 36,240 
9,198, 75,208,239,169, 10, 76 
105,249, 80,254,184,173, 1, 28 
149, 37,232,224, 7,208,243, 32 
151,244,165, 22, 69, 23, 69, 24 
69, 25, 69, 26,240, 7,198, 9 
208,192, 76, 30,244,165, 24,197 
6,240, 3,76; 11;244,.133, 34 
189, 4.138 ..29,..78, 28, 2188 
18,166, 19,133, 22,134, 23,165 
6,133, 24,165, 7,133, 25,165 
22, 69, 23, 69, 24, 69, 25,133 
26, 32, 52,249,162, 98, 32, 86 
245,140, 8, 80,254,184,173, 1 
28,217, 36, 8,248, 6,202,208 
237, 76, 81,245,200,192, 8,208 
234, 32, 86,245, 90,254,184,173 
1, 28,145, 48,209,208,245,16® 
1864, 88,254,184,173, 1, 28,153 
0, 1,209,208,244, 32,224,248 
165, 56,197, 71,240, 3, 76,246 
244, 32,233,245,197, 58,240, 3 
76, 2,245,160, 09,169, 85, 32 
226, :3,189,.8, 6, 32,206. 3 
200,208,247,248, 58,133,119,162 
1,138, 44, DB, 24,240,251,169 
0,141, B, 24,138, 44, 0, 24 
208,251,162, 4,169, 8,1@2,119 
42, 42,182,119, 42, 42,141, ® 
24,202,208,240,162, 2,202,208 
253,169, 8,141, 8, 24, 96,173 
0, 28, 9, 8,141, 8, 28,173 
0, 6,208, 3, 76,158,253,197 
2DR,2B8.249.1%5, 6,173, 1,6 
135, 7, 76,188,: 3,133, 8, 88 
165, B, 48,252,120, 96,120,169 
8,141, 8, 24,165, 24,141, 08 
6,133,  A,105, 28.181.071, 4 
133,: -7,169, : 4,133,128,169,224 
32, 50, 4,201, 2,144, 51,168 
0,132,12@,164,12@,185,219,254 
240, 18, 88, 32,118,214,120,169 
226, 32, 58, 4,201, 2,144, 26 
238,120,298,231,169,192, 32, 580 
4,189,226. 32, 59, 42381, 2 
144, 8,149,255, 32,226, 3, 76 
34,235,173, 9, 6,240,248,197 
24.240.196,.1735, D,. &,183, & 
3,0 DORERE: NORBER Br 1. «PO Ze 2206 „> Se 
232,134,198,2@1,133,144, 4,201 
141,144, 3, 76, 66,235,282, 72 
152, 72,160, 2,169, 32, 45,255 
3,240, 13,185,151,251,221,119 
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<B36> 
226> 
177? 
<245> 
<236> 
x9849> 
<141> 
x119> 
<2354 > 
<227> 
<125> 
B65> 
<122> 
<248> 
<136> 
<244> 
<125> 
<9a52> 
<198> 
<B165> 
<B45> 
216> 
<a95> 
<B817> 
<Q086> 
<202> 
<a053> 
0737 
<185> 
<057> 
<8052> 
<067> 
<856> 
<164> 
<218> 
<226> 
-0979> 
<x154> 
<248> 
<027> 
<137> 
<141> 
<197> 
<@ll> 
<B9B> 
<129> 
x242> 
<855> 
<057> 
<853> 
<118> 
824 
<118> 
<249> 
«Q15> 
<19035> 
277> 
<B2B> 
<145> 
<240> 
<B7B> 
<925> 
<801> 
<225> 
<037> 
<1899> 
<B65> 
<145> 
<144> 
x178> 
<112> 
“155> 
<B> 
<252> 
<235> 
“B1B> 
x190> 
<BBB> 
<208> 
<122> 
027> 
<a@4 > 
<Q61> 
<B56> 
<182> 
<140> 





. 





4402 
44053 
44984 
4495 
4406 
4497 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
441& 
4417 
4418 
4413 
4500 
4501 
4582 
4503 
4584 
4505 
4505 
4587 
4508 
4587 
4518 
2511 
4512 
4513 
4514 
4515 
45165 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
45727 
4528 
4529 
4558 
4531 
45372 
4533 
45354 
4535 
4556 
4537 
4538 
4500 
4601 
4682 
4700 
4701 
4702 
4783 
4704 
4705 
4808 
4801 
4802 
4988 
4981 
4998 
4991 
4992 
4993 
4994 
Ssoo0 
SaR1 
5n8? 


sia@a 


121 
5182 
202 
2201 
>282 
3283 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
REM 

DATA 


REM 
REM 
REM 
REM 


DATA 
DATA 
DATA 
DATA 


2,240, 11,200,172, 57,288,243 
104,168,104, 76, 66,235,220,185 
151,251,201,135,144, 4,201,141 
144 ,238,236,137, 2,176,233,157 
119, 2,232,134,198,208,231,224 

6,208, 32,173,255, 3,164,203 
192, 40,208, 4, 9, 32,208, 6 
192, 43,208, B, 41,192, 121,255 

3, 76,159,258,192, 63,208, 3 

32,167,252, 76,224 ,234 ,152,240 
21,162, S5,1989,124,241,2408, 8 
U. ds: 3,240: 5,257, 16,345 
76,183,228, 76,127,245, 76,203 
242,169, 96,133,185, 32,213,243 
145,186, 32, 9,237,165,195, 32 
199,237,169, B,133,144,160, 3 
32,229,251, 76,121, 8 
51559,294,327985: REM 
133, 76,287, 34, 36, 
13,137,.:36, 79, 65, 
73,83; B4, 13,139, 
69,135, 82, 85, 78, 13,139, 83 
217, 54, 49, 56, 52, 56, 13,136 
71, 79, 83, 85, 66,140, 82, 69 
84, 85, 82, 78,136,255,7255,755 
255,173,255, 3, 41, 64,240, 3 
76, 1,245,169, 135, 32,210,255 
169, 9,133,144,168, 2,132,169 
32, 19,238,133,17@, 32,225,255 
208,.: 3, 76,-31,246, 32,..62, 241 
20, 7,201,. 32,208, 3, 32, 2 
241,240,251,164,144,208, 47, 32 
17,2538,164,144,208, 409,164,169 
136,208,211,166,17@, 32,205,189 
169, 32, 32,219,255, 32, 19,238 
165,144,208, 18,170,240, &4&, 32 
210,255, 76, 28,252,169, 13, 32 
210,255,160, 2,208,176, 32, 66 
246,166, 45,164, A&, 96,164,183 
136,185, 62, 3, 41, 15,141, 640 
3,136,248, 20,185, 62, 35, 41 
15,168,240, 12,173, 60, 3, 24 
185, 19,136,208,251,141, 60, 3 
76,121; @;12B, BB; 22,115, 8 
179,208, 3, 74,10%, 388 169. 98 
133,124,165,122, 72,165,123, 72 
138,281, 34,240, 3@, 32,115, ® 
208,247,104,133,123,1@4,133,122 
32,121, 8,162; 9,201, 34,240 
14.162, -2,228.193,200, 11.182 
2,240, 18,104,104,162, 8, 76 
89,246, 76,116,246, 76, 74,246 
160, 1,152,145, 43, 32, 51,165 
24,165, 34,105, 2,133, 45,165 
35,185, 09,133, 46, 96 
ZSZ==2222z2e=========s==m BLOCK Dee” 
REM £FECA-EFCECE 
77, 45, 69, 69,193 


— —— oo 
— 117777 7 Tl lu m m mo 


32221,28,3397: REM $FDDD-$FDF8 

169, 37,141, 4,220,169, 64,141 
5,220, 76,110,255, 32,208,247 

201,255,248, 2,168, 0, 96, 77 
45, 69,153, 1 


u m 
= zoo non 


32577,7,872: REM $FF41-$FF47 
133,1659,1849, . 1,1335,171, 96 


m u m m ya mn hd m m m en be be a u A un nn m mr rn mn m m 
u u u u ui u Eu u lu Gun mn nn (urn un, wu mem an, amen Am, Mann den mm en ee un 


24 


34, 44, 
68,134, 
83, 65, 86 


kart) 


7& 


BLOCK 24 


BLOCK 27 


IL I mn I m ze ee ea u A a a m a m m m m a m m a li en m mn 
_=_—__— .  — - oo... _ II IT IT 20.2 nm 


DATAS ZUR ELIMINIERUNG DER 
RS2352-ROUTINEN 


BLOCK 28 


11 


u un mn mn mn m mn mn m re mn mm mm mm mn ne nn en 
ee m — em nn m 


297908B8,5,462: REM £F14E-#F152 
76, 19,247, 24, 96 

z===2==S=2=zs2=== === ====== BLOCK 38 
29845,47,6244: REM +#F175-F1A3 
76, 19,247, 37, 47, 94, 95, 64 
35, 81, 34, DB,243,243,243,245 
258,252,245,250,141,141,141,148 


BLOCK 29 
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#FB?7-#FCBC 


20977 
<B12> 
984 > 
<218> 
294 > 
<214> 
<161> 
<Bil> 
<1877> 
<170> 
<B72> 
<B7B> 
<207> 
<1>38> 
<254 > 
ELLE» 
<129}> 
<1B2> 
<221> 
2327 
8277 
<B47> 
<B39> 
2427 
<186> 
<180> 
<B23> 
er 
2425 
<248> 
1393 
2293 
x1.13> 
{238 > 
x125> 
<212> 
<B42> 
3173 
<208> 
2149> 
“1257 
& 

<B453 > 
<B44 > 
<>208 > 
<120> 
<178> 
ae 
<B73> 
“2227 
<B76> 
208> 
<BQ272 > 
046 > 
<Q12> 
9067 > 
x2935> 
<1787 
x<B42> 
<Ba975> 
xai1l> 
<B41> 
x1347 
<B53> 
<825> 
<235B8> 
«1733 
<124> 
<162> 
<209> 
<097 > 
x226> 
<120> 
<1277 
KE2IE 
942 > 
B235> 
<23897> 
<B8?2> 
<245> 
<147> 
<“185> 
<B5S3 > 
<103> 
<B49> 
<215> 





3294 
3285 
2206 
3288 
2528 
23381 
3382 
>03 
3504 
Ss490 
41 
482 
So2d 
Sal 
3382 
fe} 7217] 
Sal 
3682 
saB>3 
5728 
781 
5722 
SB80 
„921 
3802 
702 
9701 
2782 
samn 
saBi 
aua2 
6180 
6181 
6182 
62008 
6281 
6202 
6388 
6581 
6302 
same 


6402 
509 
581 
6502 
je r= ul) 
sagi 
6678 
5691 
6692 
6673 
6674 
6695 
40% 
6782 
6781 
6702 
67053 
6784 
6705 
670& 
67807 
6708 
6707 
6718 
6711 
&712 
67153 
4714 
6715 
6716 
6717 
6718 
6717 
6728 
6721 
6722 
6725 
6724 
6725 
6726 
6727 






REM = 


161, 40,135,188, 76, 51,245,162 


2,189,145,241,149,124,202, 16 
248,169, 8,141, 68, 3, 96 
Ses=m=mmemma2o= BLOCK 31 


29147,197,216&64: REM £F1DB-$+FiED 


#a;- 39,247 ,169, 135, 32.22.2531 
169, ®, 32,144,255, 32,142,166 
768,174,167 
REM ==================== BLOCK 32 
29219,2,149: REM +F223-£F224 
144, 5 
z===2=2=2=2=2=========== BLICK 5 
2923@,1,148: REM $F22E 
148 
REM =z2mm=2s2. = 222co2ce BIECK 54 
29288,18,1288: REM £F248-#F271 
7a; 19,247,173, 8,221, 76,218 
250, '® 
REM ======2============== BLOCK 35 
29351,2,175: REM $F2A7-#F2AB 
144, 31 
S====2=Sz============ BLOCK a6 
29639 ,1,222: REM $F3C7 
222 
SE=2EE2 za zzzcze ee BLOCK 37 
2977805,3,342: REM FF499-+F4Q8B 
70; 197,297 
ZSZES2=2=2= === ======== BLOCK 58 
Ss2955,1,120: REM £F553 
128 
ZzZ=2=222===2========= BLOCK 397 
3528828 ,1,129: REM +F588 
1297 
zz== === zz m m=m=m=em==== BLOCK 40 
39@84,1,137: REM $F584 
137 
z=zz=z=zz22======-===== BLOCK 41 
531429 ,1,1280: REM £FAAB 
120 ° 
5316768,1,52: REM #FBBC 
u 
zzz====-=2===2===z==== BLOCK 43 
32341,1,1@02: REM $FES5 
102 
===============000= BLOCK 44 
32557,1,86: REM $FE65 
Bö 
DB: REM ENDEMARKE 
ATAS FUER HYFRASAVE 
zsz=Ss2=z=2=2=2====s====z= BLOCK 45 
28348,449,51973: REM $EEBC-$FOAS 
m,i62,. - 1,134, 08, 41, 2;7z40 
16,166,152,134, SQ, 32, 47, 4 
32E,17n, 35 a: 4, u Fa, 
249,162, 8, 32, 52, 3,162, 1® 
32, 52, Dias, 2:8, 92,284; 5 
162, 18, 32,244, 3,165,140, 48 
232, 16,227,134, 58,134,152,165 


| 288, 


140, 16, 97,181,131,2988, 93,189 
SB, 4,.32,124, 1,2BR.166; 50 
169,128,149,131,165,128,149, ® 
165,129,149, 1,177, 48,240, 28 
32, 33,241,166,138,246,181,208 

2,246,187,160, 9,165,128,145 
48,208,165,129,145, 48,165,128 
197, 34,240,  2,132,140,166, 58 
167, 8,135, 48,135, 51,135, 46 
133, 34,133, 12,133, 808,169,1897 
133; 52,189, @, 2,133, 27, 2 
233.235..137.0598,189,; 31.450382 
163,247,166, 58,181,131,240, 82 
52. 47, 8.173,98, 28, 88. 18 
3, 76,129,245, 32, 16,245 
162, 9, 80,254,184,202,208,258 
169,255,141, 3, 28,173, 12, 28 
41. 31,..9,4192,141,. 12, 29,189 
255,162, 5,141, 1, 28,194, 88 
254,184,2902,208,258,160,187,177 


<0u2> 
<127> 
x138> 
<B49}> 
<B74> 
244} 
<x128> 
<233> 
<177> 
<157> 
<972> 
<B53> 
1777? 
<1356> 
<185> 
<198> 
<2357> 
<0359> 
xB&2> 
<126> 
<166> 
<175> 
<202> 
<Z221?> 
<B71> 
=179> 
<2359> 
<2B64> 
<2897> 
<B75> 
<882> 
x134> 
<228B> 
<185> 
<253> 
<B25> 
xB43> 
<1853> 
<141> 
<1757 
<205> 
<B135> 
<055> 
<145> 
<r19> 
<185> 
<aBi> 
<B45> 
-B18> 
x222> 
<150> 
St22> 
<B64 > 
<153> 
sB45> 
B&5> 
<B88> 
<118> 
<118> 
<163> 
<111> 
<BösB> 
<151> 
<2354> 
<222> 
<248> 
<@a12> 
<205> 
x0537> 
<153> 
x256> 
B64 > 
<245> 
<974> 
x246> 
204 > 
<B72> 
<136> 
<B7&8> 
<167> 
1773 
<xB977> 
8085 > 
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6728 
6729 
6730 
6731 

6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6748 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 

6752 
6753 
6754 
6755 
6756 
6757 
6758 
s800 
6881 

6802 
68053 
6988 
6901 

6902 
6903 
6904 
6985 
7208 
7221 
7902 
7128 
7101 
7192 
7208 
72981 

7202 
7308 
7301 
7302 
7303 
73084 
7385 
7306 
7307 
7388 
7389 
7318 
7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7328 
7321 

7322 
7323 
7324 
7408 
7401 

7402 
7403 
7404 
7485 
7406 
7407 
7408 
7409 


12, 88,254,184,141, 1, 28,288 
208,245,177, 48, 8@,254,184,141 
1, 28,200,208,245, 80,254, 76 
0,254, 96,134, 5@, 44,152, 1 
48, 42,134,152,181,131,248,242 
32, 47, 4, 32, 1@,245,160,187 
177, 12, 80,254,184, 77, 1, 28 
208, 25,200,208,243,177, 48, 88 
254,184, 77, 1, 28,208, 12,200 
192,253,208,241,166, 58,169, ® 
149,131, 96, 76,197,246,189, 58 
4,133, 49,189, 51, 4,133, 13 
36, 3,1, 18, "8; 88532. 35 
241,169,132,213,167,240, 5,149 
167, 32, 66,288,169, 64,141,249 
2,169, 1.133.131,.732,°.'7,289 
144, , 3, 76,248,207,:32, 62,222 
246,181,169, 9,133,139,133,141 
169,128,133,14@,165,128,133, 6 


169,224,135, ®,165, 0, 48,252 
240, 36,281, 1,2490,234,165, 24 
133, BU, 25,13, 7a, u 


169,176, 32,125,213, 32,153,213 
169,226, 32,125,213, 32,153,213 
165,140,208,204,2408,206, 76, 35 
219, 24,169, 9, 72,169, 32,162 

0,157, 8, 4,232,208,250,165 
158, 13, 8,221,141, 8,221,173 

17,208, 97, 16,141, 17,228,104 


BLOCK 46 
29113,13,1543: REM $F1B9-F1C5 
185,237, 434,255, - 3, .48,:73,-78 
107:242,..76, 21,246 
BLOCK 47 
29166,38,3955: REM $FiEE-F20OB 
133,195, 44,255, 3, 48, 22,182 
2,160, 
198,142,128,198,183,23@,187,208 


2,2380,189,134,172, 95 
>5@194,1,6: REM $FSF2 

{=} 
Sss=2=2=2=2=2=2S5=2=S=2======== BLOCK 497 


3@281,5,777: REM $FSF9-$FSFD 
169, 97, 32,238,241 
30226,3,581: 
76,184,241 


31459,178,23342: 
41, 7,133,168,169,240, 72,169 
95, 72,169, 9,133,144, 32,221 

237, 32,221,237, 32,254,237,165 


ker] 


REM $F612-#F614 


BLOCK S51 


144,240, 2, 24, 96,160,104,166 
172,185,2@2,254,153,255, 3,136 
288,247,142, 82, 4,169, 0,133 


172,169, 4,133,173,169,. 70,133 
20,169, 21,.133,-21.182, 4.33 
44,247,169,187,133,172,169,238 

133,173,169, 9,133, 20,169, 3 

135, 21,162, 14, 22, 44,247, 32 

201,243,168,251,185,249,252, 32 

221,237,200,208,247, 32,254 ,237 

12@, 32,231,236,169, 4,141, ® 

221,173, "9,221, Ad,2u1, 32,182 

231,169,172,141, "2; 4,165,173 

141, 4,162, 4, 32,209,252 

1765; :19,177,172,197, DB, 4A, 2 

219,252,232,208,240, 32,209 ,252 

176, "3,169 ,295, 44,169, 8, 72 

1Al, 0, -4,202,142, 1,44 32 

114,254,162, 2,104,208,214, 76 
93,248 | 


5, 


BLOCK 52 
32370,72,8679: REM $FE72-$FEBF 
160, 9,152, 89, 8, 4,200,208 
250,133, 20, 32,133,254,165, 20 
156,288, 3,185, 8, 4,133,149 
162, B, 44, 0,221, 80,251, 44 
0,221, 16, 6,232,208,248, 76 
75,248,169, 20,141, ®,221,162 
4,169, 64,102,149,106,1@2,149 
106, 74, 74,141, 9,221,202,208 
240,162, 2,202,208,253,240, 8 


110 Isa? 


0,177,187,2@1, 42,208 


REM ZFADA-#FBBB 


“177? 
<155> 
<238> 
“21B0> 
<248> 
<a58> 
<B27> 
<225> 
<104> 
<225> 
-B14> 
<105> 
<226> 
<1997> 
<224> 
<«029> 
<164> 
<827> 
<124> 
<151> 
<207> 
<206> 
«178> 
<@047> 
<115> 
<241> 
B7&6> 
<214> 
x159> 
<211> 
<251> 
<211> 
“1653> 
<136> 
<072> 
<a85> 
<B397> 
<146> 
<883> 
<037> 


255450 


<B78> 
882? 
<831> 
<128> 
<165> 
<B77> 
<128> 
<B45> 
<137> 
x179> 
<B54> 
x058> 
<B4B> 
<11B> 
<B42> 
<B16> 
“BB8> 
<121> 
<B78:> 
RL, 
<135> 
1775 
“2153> 
<169> 
<B4B> 
<184> 
<BAB> 
<084 > 
«089? 
s164> 
<B18> 
<a56> 
<1977> 
<x1359> 
<218B> 
<1577? 
<161> 
<188> 
<B82> 
<075> 


'<166> 


“2217 
101> 


7418 

7580 

Sei 

75802 

7583 
7584 

7585 
758& 

7587 
7588 
75897 
7518 
7511 

7512 
7513 
7514 
7515 
7516 
75978 
7591 

75972 
75953 
7574 
7595 
7599 
7608 
7881 
7682 
7603 
7684 
7708 
7781 
7702 
7808 
7881 
7882 
7988 
7981 
7992 
8288 


nn. 
62 
8003 
8094 
saas 
B12B 
sıa1 
8122 
8103 
8104 
sıas 
8126 
8107 
8108 
81097 
811@ 
8111 
8112 
8113 
8114 
8115 
8116 
8117 
8118 
8208 
82021 
8202 
"83500 
8301 
8302 
8503 
8304 
83505 
8400 
8401 
8402 
8500 
8501 
8502 
85053 
8504 
8585 
8506 
8507 
8508 


REM z=======musszzzsuzomm BIICK 53 
DATA 32458,1153,11897: REM #FEC2-#FF32 
DATA 169, 4,141, 8,221,200,2@8,187 
DATA 96,160, 9,132, 17,169, 2,141 
DATA 0, 24,169, 4, 44, U, 24,240 
DATA 251,169, B,141, 89, 24,162, -3 
DATA 202,208,253,162, 4,173, B, 24 
DATA 74,186, 74,182,133, 18, 12,182 
DATA 133,282,208,241,185,133,145, 48 
DATA 69, 17,133, 17,209,208,286,136 
DATA 96,133, 49, 32, 7@, 1,177, 48 
DATA 72, 32, 74, 1,1@4,145, 48,169 
DATA 19,141, DB, 24,165, 17,240,232 
DATA 76, 67,232, 9,12@,169, 18,141 
DATA DB, 24,162, 0,136,298,253,2@2 
DATA 208,2528,1659, 128,153,185, 76, 82 
DATA 4 

REM ====2===>=2=2=2=2=22=2=2=2=2=2=22 2222 =2===e— 
DATA 8 :REM ENDEMARKE 

REM 

REM DATAS FUER DIE CENTRONICS- 

REM SCHNITTSTELLE ALLGEMEIN 

REM 

REM =====2=2=2=2=2=:=2==2=2=2===== BLOCK 54 
DATA 2585384,17,18964: REM $E4EC-$EAFC 
DATA 36,188, 48, 6, 32,151,238, 76 
DATA &58,237,138, 72,152, 72,165,149 
DATA 76 

REM ===2=2=2==2=2===2==::=:=2===== BLOCK Ss 
DATA 27940,3,3352: REM +ED24-$+ED24 
DATA 76, 12,244 

REM ======2=2==2=2=2=22=22===== BLOCK Sb 
DATA 27969,3,5480: REM $ED41-$ED43 
DATA 76,2356,228 

REM z===2=2===2=2=2=2=2=2=2=2=2=22= BLOCK =7 
DATA 289972,2,381: REM $EDBC-$EDBD 
DATA 57,244 

REM =======-=2=22c2cc2c2=== BLOCK 58 
DATA 29353,27,3243:2 REM #F2A9-SF2C5 
DATA 241. 1,.221,173, 13.221.178. 8 
DATA 221, 41,251,141, 9,221, 9, 4 
DATA 141, 0@,221,169, 16, 44, 13,221 
DATA 240,251, 976 

REM ========---o2c22c2=== BLOCK 597 
DATA 29708,88,9457: REM $F49C-F45B 
DATA 201, 36,240, 17,201, 37,240, 10 
DATA 169, 09,133,188, 32,151,238, 76 
DATA 39,237,160,193, 44,1698,192,169 
DATA 255,141, 3,221, 36,188, 48, 1@ 
DATA 152, 5,189,133,180,169, 8, 32 
DATA 169,242, 24, 88, 76,120, 36,180 
DATA 48, 4, 88, 76, 54,237, 72, 41 
DATA 31,281, 7, 8,165,180, 40,288 
DATA 3, 41,191, 44, 9, 64,133,180 
DATA 104, 41,240,291,224,288,219,248 
REM ==z===2=2=2=2=22-2=2=-=22o 20 - == moon 
DATA B: REM ENDEMARKE 

REM 

REM DATAS FUER DIE ABGEMAGERTE 

REM CENTRONICS-SCHNITTSTELLE 

REM 

REM =============2====== BLOCK 68 
DATA 25953,2,377:2 REM $E4FD-$E4FE 
DATA 137,248 

REM =======2=2-=-=-=2==2=2=2==2=== BLOCK 61 
DATA 28797,31,3284: REM #F97D-tFO9B 
DATA 91, 93, 94,160,164, 13, 9, 93 
DATA 94, 32, 95, 13,2@1,192,144, 11 
DATA 201,224,176, 5, 41,127, 9, 32 
DATA 44, 41,191,168, 76,124,244 

REM zs====2=2==2=2=22=2=22=2=2==== BLOCK 62 
DATA 29092,8,7@0: REM $F1A4-$F1AB 
DATA 36,188,112, 1,152, 76, 99,244 
REM zs====2==2=2 === =2=2=2====== BLOCK 85 
DATA 29788,66,8801: REM +#F45C-F49D 
DATA 24,189,131,240, 44,169,161, 32 
DATA 169,242,1@4,168,1@84,170, 24, 36 
DATA 163, 16, 4,169, 08,133,180, 88 
DATA 96,169, 13, 32,169,242,208,243 
DATA 162, 5,221,125,240,240,218,202 
DATA 16,248,2@01, 65,144,217,2@1,123 
DATA 176,211,281, 97,176, 7,281, 971 
DATA 176,205, 9, 32, 44, 41, 95, 76 
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B57> 
<B55> 
<228> 
<225> 
<1277> 
<255> 
<B29> 
<1677> 
<119> 
<219> 
<181> 
<2B4> 
<145> 
<185> 
<124> 
<139> 
<B&8B> 
<B82> 
<19053> 
<B31> 
<24B> 
<B48> 
<207> 
<a55> 
xB245> 
<B75> 
<248> 
<158> 
<B25> 
<Bs53> 
<188> 
<182> 
<193> 
<218> 
<245> 
<B71> 
<B44 > 
<162> 
<294 > 
<247> 
<166> 
<sa?71> 
<1972> 
<BBi> 
<385> 
<D&a2> 
<197> 
<B17> 
<218> 
<B19> 
<24B> 
<171> 
sQa24> 
<21B> 
<249> 
<198> 
<189> 
=.i17% 
B45> 
<127> 
<839> 
<221> 
<B49> 
<181> 
<174> 
<059> 
x242> 
<B165> 
<115> 
<249> 
<B41> 
<156&> 
<185> 
<250> 
<166> 
<218> 
<215> 
<831> 
<a7&6> 
<166> 
<205> 
<157> 
<B15> 
<B72> 
<B42> 








8507 DATA 164,241 <185> 8719 DATA 208, 9, 56,235, 64,168,216, 364 <138> 
8518 REM =====>======2zz22=2===== BLOCK 64 <193> 8728 DATA 180,112, 2,1490,2@8,132,168, 32 <B51> 
8511 DATA B :REM ENDEMARKE <a88> 8721 DATA 96,239, 76, 96,244,168,169, B <144> 
8512 REM <192> 8722 DATA 162, 7,157, 8, 1,202, 164,258 <138> 
8513 REM DATAS FUER DIE AUSFUEHRLICHE <@94> 8723 DATA 152, 74, 74, 74, 74, 74, 24,181 <Q@78> 
8514 REM CENTRONICS-SCHNITTSTELLE <1864> 8724 DATA 168,133,168,152, 18, 18, 19,133 <i141> 
8515 REM =======es=mmzemmuonuoeosoescoen <192> 8725 DATA 167,169, 1,133,182,12@,165, 1 <148> 
8516 REM <196> 8726 DATA 41,251,133, 1,168, 7,177,167 <219> 
8408 DATA 25853,2,437: REM FEAFD-$EAFE <B33> 8727 DATA 133,181,162, 7, 6,181,144, 8 <122> 
8401 DATA 199,238 <245> 8728 DATA 189, 9, 1, 5,182,157, 8, 1 <B6B8> 
8502 REM ==================== BLOCK #5 <B&l> 8729 DATA 292, 16,241, &,182,1364, 164,238 <®23> 
8700 DATA 28347,278,32636: REM $EEBB-#+F98B <Q&AB> 87308 DATA 165, 1, 9,: 4,1335, 1,162, 8. <1172> 
8781 DATA 91, 95, 94,16@,164, 15, 91, 93 <B85> 8731 DATA 189, 37,242, 32,169,242,232,224 <193> 
8702 DATA 94, 32, 95, 13,201,255,2088, 2 <BBDS: 8732 DATA 5,208,245,162, 7,189, 8, 1 <a12> 
8723 DATA 169,126,201,192,144, 11,201,224 <BS5S3> 8733 DATA 32,169,242,202, 16,247, 24, 76 <B3S8> 
8704 DATA 176, 5, 41,127, 9, 32, 44, 41 <157> 8734 DATA 169, 27, 32,169,242,169, 82, 32 <228> 
8785 DATA 191,162, 5,221,187,258,240, 59 <B05> 8735 DATA 169,242,138, 76,169,242 <B76> 
8706 DATA 292, 16,248,201, 72,240, 72,201 «2157? 8756 REM ssse=s===z22S=esszzum BLOCK 66 <O9D> 
8787 DATA 95,240, 95,201, 76,240, 86,281 <®13> BSOR@ DATA 29788,26,2992: REM $F45C-#$F475 <B86> 
8798 DATA 32,144, 46,201, 65,144, 39,201 <B78> 8881 DATA 18, 32,169,242,194,168,184,178 <194> 
8787 DATA 160,176, 79,201,128,176, 66,201 <B68> 8882 DATA 24, 36,163, 16, 4,169, B,133 <B28> 
8718 DATA 123,176, 66,201, 71,144, 12,201 <2B6> 8803 DATA 180, 88, 96,169, 13, 32,169,242 <199> 
8711 DATA 96,144, 19, 36,180, 88, 54, 41 <B41> 8884 DATA 208,243 <815> 
8712 DATA 72 - 208 5 11 5 36 y 180 7 30 “ 7 % 7 “214> 8885 REM =========2=2=2=2=2z22=222=2=2222z2z=e=om= <B4AQ> 
8713 DATA 32,208, 3,189,193,238, 76, 93 <B71> 88064 DATA ® :REM ENDEMARKE <D49> 
8714 DATA 244,168,1 67, 1, 536,180, 8,1 32 <140> 3017 REM. Sssz222 = 2222 Segngmssn size <942> 
8715 DATA 49,240,245, 9,128,288, 30,162 <209> N 
8716 DATA 3, 32,195,239,169, 35, 32,169 <119> © St’er 
8717 DATA 242,162, B, 32,195,239, 76, 96 <245> Kar j 
8718 DATA 244, 9, 64, 208, 8, 56,235, 32 <B83> Listing. Neues Betriebssystem (Schluß) 

Hier gibt’s Clubs Maschinenspracheprogram- . gibt. Aktionen werden in Listen STO Computerclub Herzogenburg 


Um Euch und den Clubs unnö- 
tige Kosten und Zeit zu ersparen, 
einige Hinweise. Bei schriftli- 
chen Anfragen an die Clubs, 
sollte generell ein ausreichend 
frankierter Umschlag beigefügt 
werden. Bevor man einem Club 
beitritt, sollte man sich über des- 
sen Status, Mitgliederzahl, Bei- 
tragssätze (soweit nicht mit auf- 
geführt) und Gebühren für Lehr- 
gänge informieren lassen, Aus 
Platzgründen und der Über- 
sichtlichkeit wegen sind neben 
den Adressen nur einige 
Schwerpunkte mit angegeben. 


NO NAME 

Ralf Hottmeyer, Mudersba- 
cherstr. 81, 5000 Köln 91, Tel. 
0221/84.0521. 

Kein Beitrag, Treffen jeden er- 
sten Sonntag im Monat. Haupt- 
sächliches Interesse ist die 
Hardware. 

Sigi-Soft Computerclub 
Sigmar Bröhl, Rosenharth 4, 5207 
Ruppichteroth 1. 

Clubtreffen, Zeitschrift, Soft- 
warebibliothek. 

Computerciub OUTLAWS ’64 
Sudetenstr.8, 6090 Rüsselsheim 
T. 

Veranstaltung von Spielturnie- 
ren, eigene Clubzeitung, Club- 
treffen und Tauschbörse. Ange- 
strebt wird die Gründung einer 
Kette zwischen den Computer- 
clubs. 

Software-Club-64 

c/o Hannelore Bauerhenne, 
Danzigerstr. 5, 6272 Niedern- 
"hausen. 

..Quartalsmäßig erscheint eine 
Club-Diskette zum Preis von 12 
Mark, mit 10 fertigen Basic- und 
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men. 


64’er Club 

Michael Frieser, Hoffmannstr. 
123, 7015 Komtal 1 Tel 
0711/8372 17. 


bekanntgegeben. 
System on the Rocks C 64-User-Club 
Suen Laudi, Unterrüsselbach 12, 
8951 Igensdorf. 

sechsmal jährlich erscheinen- 


Beabsichtigt ist, einen®ingrzu ordsn@lw#rZeitschrift, Software- 


gründen, der sich zwischen 
Clubs, Mailboxen und Zeit- 
schriften bewegt. Es besteht ei- 
ne Mailbox unter der Nummer 
0711/8377686 ab 19 Uhr. 

C 64 Club, Günther Schroth 
Lindenstr. 9, 7273 Ebhausen. 

Interessenschwerpunkte sind 
Hardware-, Software- und Erfah- 
rungsaustausch. 

Computer User Vereinigung Bruchsal 
c/o Torsten Zimmermann, Stein- 
ackerstr. 12, 7520 Bruchsal, Tel. 
07251/14920! 

Der Beitrag beträgt für Schü- 
ler 24 Mark und für Erwachsene 
35 Mark im Jahr. Der Club veran- 
staltet Basic-, Pascal-, und As- 
semblerkurse. Geplant ist die 
Gründung von AGs. 
Commodore-Computerclub 
für Berufstätige 
Dieter Schönberger, Im Jüden 
43, Postfach 4305, 7520 Bruchsal 
4, Tel. 07257/3447. 

Ein Club für aktive Computer- 
freunde, die sich regelmäßig 
treffen. Gesellschaitliche Veran- 
staltungen, auch mit Anhang, 
sind geplant. 

C 64-Club »New Line« 
Postfach 8007, 7910 Neu-Ulm 8. 

New Line gibt Hilfestellungen, 
bevorzugt für Anfänger Der 
Club hat folgende Schwerpunk- 
te: Softwaretausch, Public Do- 
main Software, Pragrammierauf- 
träge annehmen und vergeben, 


Programmieranleitungen, Hard- _ 


ware und Peripherie. Kein Beı- 
trag, da es keine Clubtreffen 


test, -Erstellung und -Tausch. 
Tıps & Tricks, Problemhilfen, 
Programmbibliothek. Jahres- 
beitrag 15 Mark. Dafür gibt's 1 
Diskette voll Programme. 


ACS-Userclub 
Wasserfallweg 8, 8964 Nessel- 
wang. 

Monatliche Clubzeitung, Auf- 
bau einer Programmbibliothek 
mit Profiprogrammen und Ein- 
steigerberatung. Aufnahmege- 
bühr 10 Mark. Beitrag 15 Mark 
pro Quartal. 


Club Österreichischer 
Computer-Amateure 
Postfach 51, A-1193 Wien. 
Regelmäßiges Mitteilungs- 
blatt, Programm-, Erfahrungs- 
und Wissensaustausch, Softwa- 
resammlung, gesellige Abende, 
und vieles mehr. 
Floridsdorfer Mikro Computer Club 
Ängererstr. 14, A-1210 Wien. 
Erfahrungs- und Programm- 
austausch, in den Räumen der 
VHS Wien-Nord, findenab Ende 
September wieder statt. Club- 
beitrag OS 400,- für ein Jahr. 


Computer-Club-Graz 
Annenstr. 17, A-8010 Graz, Tel. 
03 16/91 3395. 

Treffpunkt ist jeden Mittwoch 
im Vereinslokal. Es gibt eigene 
Clubgeräte aller Typen, eine 
Clubzeitschrift und Kurse für An- 
fänger und Fortgeschrittene. Für 
dieses Semester ist eine Schwer- 
punktaktion »Computer und Be- 
hinderte« geplant. 


Stefan Ostermann, Karl Grund- 
mannstr. 43, A-3130 Herzogen- 
burg, NO. 

Austausch von Erfahrungen 
und Programmen. Clubtreffen 
jeden zweiten Samstag im Mo- 
nat. Geboten werden Vorträge, 
Kurse, Erstellung von Program- 
men, und vieles mehr. 


Der Computer Club 
Knut Reuther, Wunstorferstr. 35, 
3057 Neustadt 1. 

Veranstaltet am 23./24.11. auf 
dem Gelände der KGS Neustadt 
die 3. Neustädter Computerta- 
ge, Interessenten erhalten dort 
Informationsmaterial. (og/aw) 


COMAL-Gruppe Deutschland 
D. Belz, 2270 Utersum/Föhr, Tel. 
04683/500. 

Tausch von Programmen und 
Infos. Verbreitung der Sprache 
Comal. Eigene Mailbox 
(04683/554). Verbindung zu al- 
len Comal-Gruppen in der Welt. 


LCC-Lübecker-Commodore-Club 
Moltkestr. 14, 24 Lübeck. 

Clubtreffen, Softwarebiblio- 
thek, Computersprachen, DFÜ 
ist geplant. Aufnahmegebühr: 
ein eigenes Programm. 


Commodore-User-Club-Lübeck 
Peter Jablonski, Bülowstr. 29, 
2400 Lübeck 1. 

Monatliche Clubzeitschrift. 
Beitrag 10 Mark, für Schüler die 
Hälfte. Aufnahmegebühr 15 
Mark. 

Computergemeinschaft 64 
Michael Fuhrmann, Eilveser 
Hauptstr. 34, 3057 Neustadt |. 

Austausch von Programmen, 
POKESs und anderen Tricks. Ver- 
bindungen zwischen Computer- 
freunden. 


ZSIr.Lbbo... 
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Bücher 





Lehrspielzeug Compu- 
ter: C64/VC 20 


Basic schon für Sechsjährige? 
Das Buch »Lehrspielzeug Com- 
puter: C 64/VC 20« will den Ver- 
such wagen. Unter Mithilfe der 
Eltern sollen kleine Kinder die 
ersten Schritte in die Basic-Welt 
lernen. Es handelt sich um eın 
aus dem Amerikanischen über- 
setztes Buch im Spiralhefter. 

Das Buch beginnt mit einem 
l3seitigen Überblick für die EI- 
tern, in welchem der Sinn der 
einzelnen Übungen und even- 
tuelle Schwierigkeiten, die beim 
Bearbeiten auftreten können, er- 
klärt werden. Nach einer sehr 
kurzen Einführung wird der Ler- 
nende in 42 Übungen aufgefor- 
dert, ein kurzes Programm mit 
wenigen Zeilen einzutippen. 
Nach dem Start soll er in das 
Buch schreiben, welche Reak- 
tionen erfolgten. Dann wird er 
aufgefordert, das Programm et- 
was abzuändern, um damit die 
Bedeutung einzelner Befehle 
noch besser erkennen zu kön- 
nen. Selbstverständlich werden 
nur die wichtigsten Befehle be- 
handelt. Aufgelockert wird der 
Text durch zahlreiche ganzseiti- 
ge, farbig unterlegte lustige 
Zeichnungen, bei denen man al- 
lerdings vielfach den Zusam- 
menhang mit dem Text vermißt. 

Insgesamt ist das Buch eigent- 
lich mehr ein Leitfaden für unsi- 
chere Eltern. Wer keine eigenen 
Ideen hat, seinen Kindern mit 
kindgerechten Programmen die 
ersten Schritte in die Basic-Welt 
beizubringen, findet hier einen 
erprobten, gangbaren Weg. 

(D. Hein) 


Info: M.]. Winter, Lehrspielzeug Computer: 


C 64/VC 20, Markt & Technik 1984, 140 Sei- 


ten, ISBN 3-89090-011-9, 24,80 Mark 


Das Mailbox-Jahrbuch: 
»Nutz die Netze« 


Ein »Nachschlagewerk für 
Computerfreaks und alle, die es 
werden wollen«, nennt der Autor 
Wolfgang Spindler sein »Mail- 
box-Jahrbuch«. Interessant ist 
das Handbuch vorwiegend für 
Anfänger, die in dieser Materie 
erst einmal Fuß fassen wollen. 
Einführende Artikel wie zum 
Beispiel »kleines technisches 
ABC« oder »Kinder, morgen 
wird's was geben« beschreiben 
leicht verständlich die »Welt 
der Computer-Kommunikation 
durch Telefonanschluß«. Der le- 
gere, witzige und farbenfrohe 
Schreibstl des ehemaligen 
Spiegel-Redakteurs verrät, daß 
dieses Werk in seiner jugendli- 
chen Aufmachung mehr als un- 
terhaltsamer Themenumriß ge- 
dacht ist. 

Die dennoch recht gelungene 
Publikation enthält in Abschnit- 
ten wie »Mailboxen selbstge- 
macht« oder »Odyssee durch 50 
Boxen« durchaus auch Auf- 


12 aan 


schlußreiches für Fortgeschrit- 
tene und Profis. Die unvollständi- 
ge Auflistung von nur 39 Mailbo- 
xen entschuldigt der Autor mit 
dem Hinweis, daß sein Nach- 
schlagewerk noch lange nicht 
abgeschlossen ist. Im Herbst 
folgt des Jahrbuchs zweite Ver- 
sion — in der Hoffnung auf, so W. 
Spindler, phantasievollere Neu- 
einrichtungen in der Mailbox- 
Szene. (Doris Eichmeier) 
Info: Wolfgang Spindler, Das Mailbox- 


Jahrbuch, Eichhorn Verlag 1985, ISBN 
3-8218-1040-8, 110 Seiten, 10 Mark 


Commodore 64-Listings, 
Band 1: Spiele 


Der vorliegende erste Band 
aus der »C 64-Listings«-Reihe 
des Markt& Technik Verlages 
befaßt sich mit Spielen. Auf 199 
Seiten finden sich 9 Spiele. Die 
Palette reicht vom Denk- und 
Glücksspiel über ein Adventure 
bis zu Reaktions- und Schieß- 
spielen. 

Die umfangreichen Program- 
me sind in Basic, eines davon mit 
Simons-Basic geschrieben. Das 
Schießspiel Enterprise bildet ei- 
ne Ausnahme, da man einen Äs- 
sembler dafür braucht. Außer- 
dem benötigt Enterprise ein 
Floppy-Laufwerk. 

Durch die gute Dokumenta- 
tion der Programme, die aucheı- 
ne Variablenliste beinhaltet, ist 


es möglich, den Spi uf 
verstehen und zu VER Rn 


lerdings sollte man dazu schon 
etwas Erfahrung haben, da die 
Programme ziemlich umfang- 
reich und dementsprechend 
kompliziert sind. 
Die Spiele sind alle aufwendi- 
ger gestaltet als die kurzen Pro- 
gramme, die man oft in Büchern 
dieser Art findet. Deshalb wird 
dieser Band sowohl diejenigen 
ansprechen, die nur abtippen 
und spielen wollen, als auch die 
Programmierer, die sich einge- 
hender mit den Listings beschäf- 
tigen möchten. 

(Gerhard Pehland) 
Info: Hans Lorenz Schneider, Markt& Tech- 


nik Verlag 1984, MT 2748 ISBN 
3-89090-088-2, 199 Seiten, 24,80 Mark 


Commodore 64-Listings, 
Band 2: Dateiverwal- 
tung, Schule, Hobby 


Programme aus den Berei- 
chen Dateiverwaltung, Schule 
und Hobby werden in diesem 
Band vorgestellt. Diese sind 
ziemlich umfangreich und in Ba- 
sic, Simons-Basic oder Ässem- 
bler geschrieben. 

Als erstes wird das Datenver- 
waltungsprogramm DATAVE be- 
schrieben. Das menügesteuerte 


. Programm enthält alle wichtigen 


Funktionen, die man zum Um- 
gang mit seinen Daten braucht. 
Durch die Programmierung in 
Basic istnatürlich die Arbeitsge- 


schwindigkeit begrenzt. Es fol- 
gen drei Programme, die sich an 
den Schüler wenden. Die grafi- 
sche Darstellung von Funktio- 
nen, Übungen zur lateinischen 
Grammatik und eine statistische 
Regressionsanalyse werden auf 
dem C 64 realisiert. Für den pri- 
vaten Bereich sind die Program- 
me im Hobbyteil dieses Buchs 
gedacht. Er enthält eine Verwal- 
tung der Bundesligatabelle, ei- 
ne Reisekostenabrechnung so- 
wie ein Listing zum Ausdruck 
von Disketten-Directories. 

Die ausführliche Dokumenta- 
tion erlaubt es dem fortgeschrit- 
tenen Programmierer, die Pro- 
gramme zu durchblicken und 
Veränderungen vorzunehmen. 
Leider ıst das Druckbild der Li- 
stings sehr schlecht, für die Ver- 
öffentlichung in einem Buch soll- 
te man nicht gerade den billig- 
sten Drucker verwenden. 

Wer sıch für die besproche- 
nen Änwendungen interessiert, 
erhält mit diesem Buch meines 
Erachtens gute Programme, die 
auch an individuelle Bedürfnis- 
se angepaßt werden können. 

(Gerhard Pehland) 
Info: Hans Lorenz Schneider, Markt& Tech- 


nik Verlag 1984, MT 766, ISBN 3-89090-071-2, 
179 Seiten, 24,80 Mark 


Mathematische 
Routinen VC 20, 


‚Eleirotechnik/Elektronik 


Wer geglaubt hat, der kleine 
VC 20 sei ein »Spielding« und nur 
als solches zu gebrauchen, wird 
von Ernst-Friedrich Reinking ei- 
nes anderen belehrt. 

24 Programme, die auf der 
Grundversion des Computers 
laufen, werden vorgestellt. Um 
die Anpassung an andere Basic- 


Versionen zuerleichtern und um. 


den wenig geübten Benutzer 
den Umgang mit dem Gerät zu 
lehren, findet man im ersten Teil 
eine knappe Vorstellung des VC 


'20-Basic. 


Beide Ansprüche werden 
aber nicht erfüllt, denn zum ei- 
nen haben vier Seiten stichwort- 
artiger Text keine Lehrfunktion, 
sondern bestenfalls dienen sie 
als Gedächtnisstütze. Zum ande- 
ren aber sind einige Programme 
doch derart gerätespezifisch 
aufgebaut (POKE-Kommandos 
in bestimmte Speicherberei- 
che), daß zur Umsetzung auf an- 
dere Computer mehr als diese 
kleine Liste nötig wäre. Schade, 
der Effekt der Programme mit 


einem reinen Minimalbasic wä- 


re größer gewesen. 

Der zweite Teil des Werkes ist 
mathematischen Aufgaben ge- 
widmet. Da findet sich zunächst 
die obligatorische Lösung einer 
quadratischen Gleichung, wo- 
bei auch komplexe Ergebnisse 
berechnet werden. Im zweiten 
Programm »Umwandlung von 
Polar-/Kartesischen Koordina- 


ten« ist leider ein Fehler enthal- 
ten: Die richtigen Polarkoordina- 
ten kommen nur für den 1. Qua- 
dranten heraus. Die anderen 
drei Quadranteneingaben füh- 
ren zu falschen Winkeln. Ein 
Problem, welches sich: mittels 
der SGN-Funktion leicht hätte 
beheben lassen. Auch das fol- 
gende Programm »Vektorrech- 
nung« verdient einige Kritik. Es 
istzwar ganz nett, daß man damit 
zwei Vektoren addieren, subtra- 
hieren und als Kreuz- oder Ska- 
larprodukt multiplizieren kann, 
aber dazu braucht's kaum einen 
Computer. Zur Vektorrechnung 
sollten eigentlich die folgenden, 
weniger trivialen Problemlösun- 
gen auch gehören, die man hier 
allerdings vermißt: Betrag, ein- 
geschlossener Winkel, dyadı- 
sches Produkt und Spatprodukt 
von drei Vektoren. Auch das ıst 
in der Grundversion des VC 20 
realisierbar! 

Je weiter man in der Lektüre 
dieses Buches kommt, desto er- 
freulicher wird es allerdings. 
Die Programme zur Zahlenkon- 
vertierung, zur komplexen Arith- 
metik und Trigonometrie sind 
sauber geschrieben und über- 
schaubar dokumentiert. Zwei 
weitere Routinen zum Ermitteln 
der Nullstellen einer Funktion 
und zur Berechnung bestimmter 
Integrale nach der Trapezregel 
verdienen lediglich den Tadel, 
daß die Funktionseingabe platz- 
raubend und schwerfällig ist. 
Die Möglichkeit, über den Tasta- 
turpuffer zu arbeiten, wäre we- 


‚sentlich eleganter gewesen. Der 


mathematische Teil wird abge- 
rundet durch ein Programm zur 
Lösung linearer Gleichungssy- 
steme mittels des Gaußschen 
Algorithmus und ein letztes zur 


Polynomapproximation nach 
der Methode der kleinsten Feh- 
lerquadrate. 


Im dritten Teil des Buches fin- 
det der Elektroniker vieles, was 
sein Herz begehrt. Man merkt, 
daß der Autor hier in seinem 
Fachgebiet programmiert. 14 
Programme aus dem Bereich 
der Elektrotechnik und Elektro- 
nik werden vorgestellt, von de- 
nen hier nur erwähnt seien: Be- 
rechnung einlagiger Zylinder- 
spulen (es wäre benutzerfreund- . 
lich gewesen, die Änderung der 
relativen Permeabilität einfa- 
cher zu gestalten), Schwing- 
kreis- und Reaktanzberechnun- 
gen, mehrere Routinen zur Be- 
rechnung von passiven und akti- 
ven Tief-, Hoch- und Bandpäs- 
sen, Berechnungen zur HF-Lei- 
tungstechnik und als Höhepunkt 
eine Netzwerkanalyse. 

Fazit: Das Buch ist eine Fund- 
grube für Studenten oder Inge- 
nieure der Elektrotechnik und 


Elektronik. (Heimo Ponnath) 


Info: Ernst-Friedrich Reinking, Mathemati- 
sche Routinen VC 20, Elektrotechnik/Elek- 
tronik, Vieweg & Sohn 1983, ISBN 3-528- 
04234-6, 29,90 Mark 
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Marktübersicht Disketten 


In der Marktübersicht Disketten (Ausgabe 10, Seiten 40/41) sorgten einige Fehler für große Verwirrung. Nicht, daß es nur 
ein einziger Druckfehler wäre, nein, ein Hersteller verschwand sogar und entsetzlich viele Einzelheiten waren verdreht. Da- 
durch hat der Informationswert der Marktübersicht dann sehr gelitten. Für uns heißt das, daß wir die gesamte Marktüber- 


sicht, nicht zuletzt wegen der Überschaubarkeit, noch einmal vollständig und korrigiert (und fehlerfrei) abdrucken. 






yDi h,s SS/SD, bis - a,b KA. MH2-16D DS/DD 500 a 11,70 
qualimetric SS/DD 1600 a 18— 
Comtec = a 20,60 
Mil h,s SS/SD 125 276 a,b KA. 
: ca. —,40 3203-5151 s SS/SD 12541 c b 
MI2 h,s SS/DD 250 6 a,b k.A. 3203-5251 5 j c b 
ca. —,40 = 3203 5A5l h 1 c b 
M22 h,s DS/DD 500 6 a,b kA. 3203-5B51 h 1 c b 
| ca. —,40 3203-5210 1 b 
Mi14 h,s SS/DD 500 9°: a,b k.A. 2203-5A1l h 2 5 b 
| | ca. —,40 3203-5B11 h 1 b 
 M24 hs DS/DD 1000 6 a,b KA. me 5 1 ee 
ca. —, | 3203-5A61 h 1 c b 
ControlData nn 3203-5B62 h l c b 
1242-XX h,s : SS/DD 250 1 a,b,e b 57,50 3203-5220 s 1 c b 
1244-XX h,s DS/DD 500 1 a,b,c b 69,50 3203-5A2 h 1 c b 
1247-XX h,s SS/DD 500 1 abc kamen or au: h 1 c b 
1248-XX h,s DS/DD 1000 1 "abe b 88-— 3203-5410 s 1 c p’ 
1249-XX s DS/HD 1600 1 abe b129,— 3203-5C11 h 1 c b 
Döbbelin & Boeder 3203-5D11 h 1 c b 
Disky 1 s ss D 15 5 abe sk Ze . . MW 
2 Anfr 3203502 ce = 
DiskyID s S/DD 20 5 abe KA a. - Eu 
a Anfr: 3203-5660 5 1 c b 
Disky 2D S DS/DD 500 5 a,b,c k.A. Marcom 
| a.Änfr. | „Elephant s SS/DD 250 1 " b 62,— 
 Disky1D6 s S/PDE 5007 5 abc K.A. EMS 2 
> a. Anfr. Elephant h SS/DD 250 1 c b 6&2,— 
Disky2D6 s DS/DD 100 5 a,b,c K.A. . EMS 3 
a, Änfır. a, Elephant h sSs/DD 250 1 c b 82, — 
Disky s DS/DD 07 56 abc KA. EMS4 
two eye a. Anfr. | Elephant s DS/DD 500 1 c b 80,— 
Disk top s BED 00 = 58 abe K.A. EMS5 
a. Anfr. Elephant h DS/DD 500 1 c b 80,— 
DiskyHD2 s DS/;HD 160 5 a,b,c kA EMS 6 
Elephant h DS/DD 500 1 c b 80,— 
 EMS7 
104/1D Elephant S SS/DD 500 1 € b 85,— 
104/2D Euss 
Elephant h SS/DD 500 1 & b 85,— 
105/1D EMS 9 
105/2D Elephant & D/DD 1 ı c b 97- 
107/1D BRNE 
107/2D ai Be 
Elephant h DS/DD 1000 l c b=97 = 


204/1D 




























nd ed ed fen jmd femme femme feed) feed Dee Dee 





0:29 92.0 0.2 








a 7,50 
a 7,85 
a 11,70 
a 11,60 
a 15,35 
a 7,50 
a 7,50 
a 11,70 






204/2D 
205/2D Nashua 
207/2D “MD. h,s SS/SD 125 1 a k.A. 
: MDID h,s SS/DD 250 1 a k.A. 
MD2D h,s DS/DD 500 1 a,b k.A. 
MDIF h,s SS/DD 500 1 a,b k.A. 
MD2F h,s DS/DD 1000 1 a,b k.A. 


EBF MDID 
EBF MD2D 
EBF MD2DD 
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Perfectdata International 


1852D 
‚252D 
152D 
252D 


Rhone Ponlenc 


MNIDD 
. MN2DD- 
MN2DD-2 
MD2HD 





250 


Det u nd dd 




















Datalife 


MD 5857-01 


Datalife 
MD HD 


Wabash DataTech 






































MIl s SS/SD 125 l b kA 
M13 h,s SS/DD 250 l b k.A. 
Ml4 - h,s DS/DD 500 1 b k.A. 
MI16 h,s l b 

MIB s l b 





Verbatim 
























Verex SS/SD 125 c b 35,— Zidex 
MD 150-01 5012-1000 s SS/DD 250 ı a,b k.A. 
Verex SS/DD 250 c b 39,— 5112-1000 h SS/DD 250 1 a,b k.A. 
MD 200-01 5212-1000 h SS/DD 250 1 a,b k.A. 
Verex DS/DD 500 c b .49— 5022-1000 s DS/DD 500 1 a,b k.A. 
MD 250-01 5122-1000 h DS/DD 500 I a,b k.A. 
Datalife SS/DD 250 ab b 4-— 5222-1000 h DS/DD 500 1 a,b k.A. 
MD 525-01 5012-2000 s SS/DD 500 1 a,b k.A. 
Datalife DS/DD 500 a,b b 69,50 5112-2000 h SS/DD 500 1 a,b k.A. 
MD 550-01 5212-2000 h SS/DD 500 1 a,b k.A. 
Datalife DS/DD 500 ab b 69-— 5022-2000 s DS/DD 1000 1 a,b k.A. 
MD 577-01 5122-2000 h DS/DD 1000 Le a,b k.A. 
h DS/DD 1000 1 a,b k.A. 


5222-2000 
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Wie schicke ich... 


Wie schicke ich meine 
Programme ein? 


Die 64’er-Redaktion freut 
sich über jeden Leserber- 


trag. Es zeigt sich aber, daß. 


viele Einsender nicht genau 
wissen, in welcher Form ıhre 
Manuskripte einzusenden 
sind. Die folgenden Punkte 
sollen eine kleine Hilfestel- 
lung geben. Eine Programm- 
einsendung sollte aus fünf 
Teilen bestehen: 
l. Anschreiben 
2. Bedienungsanleitung 
3. Programmbeschreibung 
4. Programm als Listing und 
auf Diskette/Kassette 
5. Urheberrecht-(Copyright- 
Erklärung) siehe unten 
1. Anschreiben 
a) Anschrift 

Hier sollten der Name, die 
vollständige Adresse mit Te- 
lefonnummer und das Ein- 
sendedatum stehen. 
b) Computer 

Darunter ist in der »Betreff- 
zeile« der verwendete Com- 
putertyp und, wenn notwen- 
dig, die verwendete Erwei- 
terung beziehungsweise die 
erforderliche Peripherie an- 
zugeben. 
c) Programme, Bauanleitun- 
gen 

Dem folgt der Programm- 
name und die Art des Pro- 
gramms beziehungsweise 
der Name der Bauanleitung 
(zum Beispiel Dateiverwal- 


tung, Basic-Erweiterung, 
80-Zeichen-Karte oder ähnlı- 
ches). 

Auf den Rest der Seite kKön- 
nen Sie in wenigen Sätzen ei- 
ne kurze Beschreibung des 
Programms liefern (was 
macht das Programm, war- 
um ist es interessant etc.). 
Allgemeines 

Die folgenden Seiten soll- 
ten durchnumeriert und mit 
Ihrem Namen versehen sein. 
Verwenden Sie, wenn vor- 
handen, eine Schreibma- 
schine oder einen Drucker. 
Lassen Sie möglichst nach Je- 
der Zeile eine Leerzeile 
Platz. Rechts und links sollte 
mindestens ein 5 cm breiter 
Rand für Korrekturen und 
Bemerkungen frei bleiben. 
2. Bedienungsanleitung 

Schreiben Sie hier, welche 
Tasten und Befehle einzuge- 
ben sind, um das Programm 
zu starten. Ferner sollte dıe 
Bedienungsanleitung eine 
ausführliche Beschreibung 
aller Funktionen und Befeh- 
le möglichst mit Beispielen 
enthalten. 

Legen Sie, wenn es sich 
anbietet, Hardcopies oder 
Beispielausdrucke bei (ein 


gehen. Hier ist ausführlich zu 
beschreiben, wie die Gerä- 
teeinheit zusammengebaut 
und in Betrieb genommen 
wird. 
3. Programm-, 
Hardwarebeschreibung 

Ihrer Einsendung sollte un- 
bedingt folgendes beilie- 
gen: 
— ausführliche Beschrei- 
bung der Programmfunktio- 
nen 
— Flußdiagramm 
— verwendete Variable und 
deren Bedeutung 
— Hinweise auf besonders 
wichtige und interessante 
Programmzeilen oder Pro- 
grammteile 
— Anpassung an andere 
Computer, oder wenn sinn- 
voll, an andere Peripherie 
(Drucker, Disketten-Lauf- 
werk, Datasette etc.) 


— Bei Bauanleitungen sollte. 


jeder Einsender beschrei- 
ben, warum was wie funk- 
tıoniert (Blockschaltbild) 

— Schaltplan 

— Layout (2:1 oder 1:]) 

— Bestückungsplan (2:1 oder 
1:]) 

— Stückliste mit Bezugs- 
quellen und Preisen 


Bild sagt mehr MHAUSHAN@FPigramm, Hardware 


Worte). Grafiken und Bilder 
sollten mit einer Überschrift 
versehen sein. Im Text ist auf 
Bilder und Grafiken hinzu- 
weisen (zum Beispiel: siehe 
Bild 1, Bild 2 etc.). Bei Bauan- 
leitungen ist ähnlich vorzu- 


Schicken Sie Ihr Pro- 
gramm auf Diskette oder 
Kassette ein. Ein Demopro- 
gramm erleichtert die Beur- 
teilung ganz erheblich. Bei 
Basic-Programmen sollte 
das Listing und entspre- 
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chend bei Assembler-Pro- 
grammen ein dokumentier- 
ter Quellcode nicht fehlen. 


Den Bauanleitungen sollte 


eine funktionsfähige, sauber 
aufgebaute Einheit beige- 
fügt werden. Das beiliegen- 
de Layout sollte sich mit dem 
der eingeschickten Bau- 
gruppe decken. 

Vergessen Sie auch hier 
bitte nicht Ihren Namen und 
Ihre Anschrift mit Telefon- 
nummer, sowohl auf dem Li- 
sting und Datenträger als 
auch auf der Hardware. 
Ergänzungen 

Sollten sıch nach Erhalt ei- 
nes positiven Antwortschrei- 
bensnoch irgendwelche An- 
derungen oder Ergänzun- 
gen ergeben haben, so tei- 
len Sie uns das bitte mög- 
lichst schnell mit. Vergessen 
Sie dann nicht, im Änschrei- 
ben darauf hinzuweisen und 
geben Sie den Namen des 
bearbeitenden Redakteurs 
an (aus unserem Äntwort- 
schreiben ersichtlich). Bei 
umfangreichen Programm- 
änderungen benötigen wir 
ebenfalls einen neuen Da- 
tenträger mit verbessertem 
Programm. 

Ist das Programm oder die 
Bauanleitung nicht zur Ver- 
öffentlichung vorgesehen, 
werden die Unterlagen kom- 
plett an Sie zurückgeschickt. 
Seien Sie dann jedoch nicht 
enttäuscht. Vielleicht klappt 
es beim nächsten Mal. 


Der untenstehende Abschnitt (ausschneiden/kopieren/abschneiden) ist jedem eingesandten Listing oder Bauanleitung aus- 


Computer-Typ: 


Datenträger: Kassette/Diskette 
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Programmart: 
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das/die ıch der Redaktion der Zeitschrift 64er übersandt ha- 
be, habe ich selbst erarbeitet und nicht, auch nicht teilwer- 
se, anderen Veröffentlichungen entnommen. Das Pro- 
gramm/die Bauanleitung ist daher frei von Rechten anderer 
Personen und liegt zur Zeit keinem anderen Verlag zur Veröf- 
fentlichung vor. Ich bin damit einverstanden, daß die Markt 
& Technik Verlag Aktiengesellschaft das Programm/die Bau- 
anleitung in ihren Zeitschriften oder ihren herausgegebenen 
Büchern abdruckt und das Programm/die Bauanleitung ver- 
vielfältigt, wie beispielsweise durch Herstellung von Disket- 
ten, auf denen das Programm gespeichert ist, oder, daß sie 
Geräte und Bauelemente nach der Bauanleitung herstellen 
läßt und vertreibt beziehungsweise durch Dritte vertreiben 


1äßt. 


Ich erhalte, wenn die Markt & Technik Verlag Aktiengesell- 


schaft das Programm/diıe Bauanleitung druckt oder sonst 
verwertet, ein Pauschalhonorar. 
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Die Bauanleitung ........... 
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Benötigte Erweiterung/Peripherie: ..........:222eeseeeeeonenne een 
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Ich habe das 18. Lebensjahr bereits vollendet 
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(Unterschrift) 


Wir geben diese Erklärung für unser minderjähriges Kind 
als dessen gesetzliche Vertreter ab. 
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Memory Map mit 
Weundervorschlägen 





(12) 


Heute kommen wir in eine Gegend, 
die von Speicherzellen beherrscht wird, 
die mit dem Bildschirm-Editor zu tun 
haben. Neben einer modifizierten 
INPUT-Routine mit dem GET-Befehl, 
wird gezeigt, wie man 476 Funktions- 
tasten belegt. 


iele von ihnen sind zur 

Abfrage und Beeinflus- 
sung der Vorgänge auf dem 
Bildschirm einsetzbar. 


Adresse 199 ($C7) 


Flagge für reverse Darstellung der 
Zeichen 

Normalerweise steht in dieser 
Speicherzelle eine 0, was mit 
PRINT PEEK (199) leicht nachge- 
prüft werden kann. 

Sobald in der Zelle 199 eine 
andere Zahl als 0 steht, werden 
alle Zeichen in der reversen 
Darstellung gedruckt. Das Be- 
triebssystem des Computers er- 
höht nämlich in diesem Fall den 
jeweiligen Bildschirmcode der 
Zeichen um 128. Ein Blick in eine 
Tabelle der Bildschirmcodes 
bestätigt, daß die Codes aller 
reversen Zeichen um genau 128 
höher sind, als die, der norma- 
len Zeichen. 

Den reversen Modus können 
wir bekanntlich direkt mit der 
Kombination der CTRL- und der 
RVS-ON-Taste oder aber mit 
PRINT CHR$(8) herstellen. 
Wenn Sie aber versuchen soll- 
ten, das direkt einzugeben, um 
dann wieder mit PRINT PEEK 
(199) nachzuschauen, was jetzt in 
der Speicherzelle 199 steht, 
dann werden Sie Schiffbruch er- 
leiden. Das Betriebssystem setzt 
den Inhalt der Zelle 199 nach ei- 
nem »Wagenrücklauf«, hervor- 
gerufen zum Beispiel durch die 
RETURN-Taste oder nach einem 
PRINT-Befehl, der nicht mit ei- 
nem Komma oder Semikolon ab- 
geschlossen ist, sogleich auf 0 
zurück. Natürlich erfolgt das 
auch durch Drücken der CTRL- 
und RVS-OFF-Taste. 

Wir vermeiden die Rückset- 
zung durch einen Einzeiler: 
PRINT CHR$(8) "AAA" PEEK 
(199) 

Wır erhalten drei reverse As 
und als Inhalt der Zelle 199 auch 
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die Zahl 18. Dasselbe Ergebnis 
erhalten wir durch POKEn einer 
Zahl größer als Din die Zelle 199: 
POKE 199,4: PRINT'XX" PEEK 
(199) 

Das Ergebnis beweist, daß 
diese Adresse sehr nützlich sein 
kann, zumal ihre Abfrage bezie- 
hungsweise Beeinflussung auch 
innerhalb eines Programms er- 
folgen kann. 


Adresse 200 ($C8)' 


Zeiger auf das Ende der eingegebenen 
logischen Zeile 

Eine echte Zeile faßt beim © 64 
maxımal 40 Zeichen, beim VC 20 
nur 22. 

Eine Zeile mit Anweisungen 
darf beim C 64 insgesamt 80 Zei- 
chen, beim VC 20 sogar 88 Zei- 
chen enthalten. Diese »verlän- 
gerte« Programmzeile nennt 
man »logische Zeile«. 

Der Zeiger in Speicherzelle 
200 gibt dem Betriebssystem an, 
auf welcher Position das letzte 
Zeichen einer eingegebenen lo- 
gischen Zeile sitzt. Löschen Sie 
‘den Bildschirm und geben Sie 
direkt irgendwo auf dem Bild- 
schirm den Befehl ein: 

PRINT PEEK(200) 


1 


hJ 


1] 


D> 


2 


DONNDCUIUT BP RUANND HMHNS N 


3456787201253456789912345678990123456478972 


PRINT FEEK(2B1) FEEK (282) 


PRINT FEEK(281) PEEK (292) 


Bild 1. Aufbau einer logischen 
Zeile beim C 64 


Sie erhalten die Zahl der Spal- 
te des letzten Zeichens dieses 
Direkt-Befehls. 


Adresse 201 bis 202 
($C9 bis $CA) 


Zeiger auf Zeilen- und Spaltenposition 
des letzten Zeichens einer Zeile 

Diese beiden Speicherzellen 
werden bei GET und INPUT ver- 
wendet, um die Zeile und Spalte 
des letzten Zeichens einer ein- 
gegebenen Zeile festzustellen. 
Die Spalten (in Zelle 201 angege- 
ben) zählen von 1 bis 40 (1 bis 22 
beim VC 20). Die Zeilen (in Zelle 
202 enthalten) zählen dagegen 
in Paaren von 0 bis 12, identisch 
mit der bei Zelle 200 erläuterten 
»logischen« Zweierzeile. Da dies 
nicht ganz einsichtig ıst, gebe 
ich einen Bildschirmausschnitt 
wieder (Bild ]), der den Sachver- 
halt verdeutlichen soll. 

Der erste Direktbefehl steht in 
der zweiten Zeile, das letzte Zei- 
chen in der Spalte 30. Der zweite 
Befehl steht in der ersten Sech- 
serzeile. Das heißt also, daß die 
Zeilenangabe dieselbe ist, egal 
um welchen Teil der logischen 
Zeile es sich handelt. Das kön- 
nen Sie leicht nachprüfen, in- 
dem Sie denersten Direktbefehl 
eine Zeile höher schreiben. Das 
Resultat ist dasselbe. 


onlädiinrscheicung, um wel- 
che der beiden Zeilenteile es 


sich handelt, wird in den Spei- 
cherzellen 217 bis 242 getroffen. 

Beim VC 20 sieht der Bild- 
schirmausdruck etwas anders 
aus (Bild 2), auch die Befehlsein- 
gabe habe ich der Zeilenlänge 
wegen verändert. Interessant ist 
beim VC 20 allerdings, daß dort 
trotz der Länge der logischen 
Zeile auch nur Zeilenpaare ver- 
wendet werden, deren Länge 
natürlich auf 22 Spalten redu- 
ziert ist. 


Adresse 203 ($CB) 


Tastencode der gerade gedrückten Taste 

In Ausgabe 6/85 auf Seite 123 
habe ich beschrieben, wie die 
Tasten des Computers abge- 
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FRINTFEERK (222) 


fragt werden. Die dabei für jede 
der 64 Tasten (mit Ausnahme der 
RESTORE- und der SHIFT 
LOCK-Tasten) entstehende 
Dualzahl wird in eine Dezimal- 
zahl (0 bis 63) umgewandelt und 
in der Speicherzelle 203 gespei- 
chert, einige auch in der Zelle 
653. Diese Zahl steht auch ın 
Speicherzelle 197, umsie mit der 
vorher gedrückten Taste ver- 
gleichen zu können. 

Die Codezahlen jeder Taste 
lassen sich mit folgendem Pro- 
gramm abfragen: 

10 PRINT PEEK (203) 
20 GOTO 10 

Nach RUN sehen wir ein lau- 
fendes Zahlenband, zuerst mit 
der Zahl 64. Das ist die Codezahl 
für »keine Taste gedrückt«. Die 
X-Taste ergibt 23, (26 beim VC 
20), die W-Taste ergibt 9. Auch 
dıe Funktionstasten haben ihren 
Tastencode. Fl ergibt 4 (39 beim 
VC 20) und so weiter. 

Nur die Steuertasten CTRL, 

SHIFT, und C= (Commodore- 
Taste) zeigen keine Reaktion. 
Deren Tastencode steht nämlich 
in Speicherzelle 653. Den Grund 
für diesen Separatismus erfah- 
ren Sie bei der Besprechung 
dıeser Zelle. Hier ist nur interes- 
sant, daß nıcht nur jede einzelne 
dieser drei Tasten einen eige- 
nen Code hat, sondern auchalle 
machbaren Kombinationen von 
gleichzeitig gedrückten Steuer- 
tasten. Um das zu sehen, ändern 
Sie bitte die Zeile 10 so ab: 
10 PRINT PEEK (203), PEEK(653) 
‚. Tabelle 1 gibt Ihnen die volle 
Übersicht. Wenn Sie sich die 
Mühe machen, die Zahlenrei- 
hen der Zelle 203 auf Vollstän- 
digkeit zu prüfen, dann werden 
Sie feststellen, daß vier Zahlen 
fehlen. Es sind die Werte, die ei- 
gentlich den vier Steuertasten 
CTRL, C=, rechte und linke 
SHIFT-Taste zugewiesen sind. 
Aber wie gesagt, sie werden 
gleich nach 653 umgeleitet, wo- 
bei allerdings kein Unterschied 
mehr zwischen der linken und 
rechten SHIFTTaste gemacht 
wird. 

Einige Anwendungsbeispiele 


der Tastencodes sowie der Kom- 
binationen der drei Steuertasten 


25458578791234557897012 


PRINTFEEK (221) 


Bild 2. 
Aufbau einer 


logischen Zeile 
beim VC 20 
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finden Sie im Texteinschub »Ab- 
frage der Tastencodes« Wie 
schon erwähnt, haben die 
RESTORE-Taste und die SHIFT- 
LOCK-Taste keinen eigenen 
Code. 

Die RESTORE-Taste ist über- 
haupt nicht an die Tastatur- 
Matrix angeschlossen, sondern 
ist direkt mit der RESTORE- 
Leitung des Computers verbun- 
den. Dort löst sie einen soge- 
nannten NMI-Interrupt aus. Die 
SHIFTLOCK-Taste ist lediglich 
eine mechanische Verriegelung 
der SHIFT-Taste. 


Adresse 204 (SCC) 


Schalter für Cursor blinken 

Ein Wert größer 0 in dieser 
Speicherzelle schaltet das Blin- 
ken des Cursors ab. Diese Ab- 
schaltung erfolgt durch das Be- 
triebssystem immer dann, wenn 
sich Zeichen im Tastaturpuffer 
befinden und wenn ein Pro- 
gramm ausgeführt wird. 

Im folgenden Beispiel einer 
Eingabe mit dem GET-Befehl, 
bei dem bekannterweise der 
Cursor nicht blinkt, wird demon- 
striert, daß durch POKE 204,0 
der Cursor trotzdem blinkt. Das 
kann für selbstgeschriebene 
Eingabe-Routinen interessant 
sein. | 
10 PRINT" JA/NEIN? “; 

20 POKE 204,0 
30 GET A$: IF A$=""THEN 30 
40 PRINT A$ 

Umgekehrt kann man durch 
POKE 204,1 das Blinken des Cur- 
sors abschalten. Es bleibt dabei 
allerdings dem Zufall überlas- 
sen, ob er in der Ein- oder Aus- 
phase abgeschaltet wird. Wenn 
Sıe Pech haben, dann bleibt der 
Cursor bewegungslos stehen. 
Dieser Schönheitsfehler kann 
mit Hilfe der Speicherzelle 207 
beseitigt werden. 


Adresse 205 (SCD) 


Zähler für Blinkfrequenz des Cursors 
Das Blinken des Oursors be- 
sorgt die Interrupt-Routine. 60 
mal in jeder Sekunde unter- 
bricht sie den normalen Pro- 
grammablauf. Während dieser 
Zeit führt sie mehrere »Haus- 
halt«-Arbeiten durch. So wird 
hier die Tastatur abgefragt und 
das Cursorblinken gesteuert. 
Dazu wird die Zahl 20 in die 
Speicherzelle 205 geschrieben 
und bei jeder Unterbrechung 
dann um 1 reduziert. Wenn die 
Zahl in 205 den Wert O erreicht 
hat, wird der Cursor eingeschal- 
tet. Nach Adam Riese erfolgt das 
also 60/20 = 3 mal pro Sekunde. 


Adresse 206 ($CE) 


Bildschirmcode des Zeichens unter dem 
Cursor 

Im Prinzip ist der Cursor nichts 
anderes als das wiederholte 
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Drucken eines Zeichens in re- 
verser Form, das gerade unter 
dem Cursor steht. Normalerwei- 
se ist dies das Leerzeichen, des- 
halb sehen wir meistens das aus- 
gefüllte Viereck. Fahren Sie 
aber mit dem Cursor auf einen 
Buchstaben, dann erscheint die- 
ser wechselweise normal und 
revers. In Speicherzelle 206 
steht jeweils der Bildschirmco- 
de des Zeichens unter dem Cur- 
sor. Geben Sie die folgende An- 
weisung direkt ein, fahren aber 
noch vor dem Drücken der 
RETURN-Taste mit dem Cursor 
zurück auf eines der Zeichen, 
zum Beispiel auf ein P: 

PRINT PEEK(206) 

Nach RETURN erscheint die 
Zahl 16. Das ist also der Bild- 
schirmcode des Zeichens, auf 
dem der Cursor saß, als die 


DEZE IS ok le 


und ECTRL 


= und 


Tabelle 1. Tabelle aller Tasten-Codes. 
Erstaunlich ist, daß sich mit den beiden 
(203 und 653) insgesamt 476 Funktionstasten erzeugen lassen. 





RETURN-Taste gedrückt wurde. 
Sie können das mit allen ande- 
ren Zeichen dieser Zeile wie- 
derholen. 

Ich kann mir vorstellen, daß ei- 
ne derartige Abfrage bei einem 
Programm, welches mit dem 
Bildschirm arbeitet, sinnvoll sein 
kann. Die Speicherzelle 206 
wird allerdings nach jedem Blin- 
ken auf den neussten Stand ge- 
bracht. 


Adresse 207 (SCF) 


Flagge für Blinkzustand des Cursors 

In dieser Speicherzelle wird 
festgehalten, in welcher der bei- 
den Blink-Phasen— normaloder 
reverss— der Cursor sich gerade 
befindet. Eine 0 bedeutet rever- 
ses Zeichen, eine | bedeutet ein 
normales Zeichen. 


Die Abfrage innerhalb eines 
Basic-Programms funktioniert 
nich. Denn die Interrupt- 
Routine steuert den Phasen- 
wechsel. Mit POKE kann man al- 
lerdings etwas bewirken. Bei 
der Erklärung der Speicherzel- 
le 204 habe ich auf einen Schön- 
heitsfehler der Anweisung PO- 
KE 204,1 hingewiesen. Sie be- 
wirkt, daß zwar das Blinken des 
Cursors gestoppt wird, aber er 
befindet sich unkontrolliert in 
der normalen oder in der rever- 
sen Phase. 

Die reverse Phase (der Schön- 
heitsfehler) kann durch POKEn 
einer 1 in die Speicherzelle 207 
vermieden werden. Im neben- 
stehenden Texteinschub »Spiele 
mit dem Cursor« wird davon Ge- 
brauch gemacht. 

(Dr. H. Hauck/ah) 
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TEXTEINSCHUB Nr. 1 


Abfrage der Tastencodes oder 476 
Funktionstasten 


In der Speicherzelle 203 stehen die Tastencodes der gerade 
gedrückten Taste, insgesamt 64 an der Zahl. Vier davon, die Steu- 
ertasten CTRL, C= (Commodore-Taste), linke und rechte SHIFT- 
Taste erscheinen allerdings dort nicht, sondern werden sofort in 
die Speicherzelle 653 umgeleitet. Dort erhalten sie (allerdings in 
mehrfacher Kombination) insgesamt acht Codewerte. Die Tabel- 
le der Speicherzelle 203 zeigt alle Werte für den C 64 und den VC 
20. 

In meinem Kurs»Alle Tasten-, Zeichen- und Steuercodes«in den 
1984-Ausgaben des 64’er habe ich die Tastencodes und ihre An- 
wendung detailliert beschrieben. 

Ich erlaube mir, hier einige Erklärungen und Beispiele zu wie- 
derholen. 

Anfänger der Computerei sitzen oft verzweifelt an dem Pro- 
blem, die Funktionstasten der Commodore-Computer zum Le- 
ben zu erwecken. Nun, wir wissen, daß sie nur über die Äbfrage 
ihrer Codewerte eingesetzt werden können. 

Als Codewerte werden normalerweise nur die ASCII-Codes 
genannt. 

Die schon erwähnte Tabelle zeigt jedoch, daß die Funktionsta- 
sten auch Tastencodes haben. Allerdings gibt uns das nur vier 
Möglichkeiten, entsprechend der Aufschrift für die ungeraden 
Funktionstasten-Zahlen. Um auch F2 bis F8 zu erhalten, drücken 
wir ja immer gleichzeitig die SHIFT-TTaste. Das können wir beider 
Abfrage der Tastencodes natürlich auch machen, indem wir uns 
den Inhalt der Zelle 203 und 653 ansehen. Das folgende kleine 
Programm überprüft, über den Tastaturcode, ob eine der acht 
Funktionstasten gedrückt wurde. 


10 A=PEEK(203) 

20 B=PEEK(653) 

30 IF A=4 AND B=0 THEN PRINT" FI" 

40 IF A=5 AND B=0 THEN PRINT'F3“ 

SO IF A=6 AND B=0 THEN PRINT'FS" 

60 IF A=3 AND B=0 THEN PRINT" FT“ 

70 IF A=4 AND B=1 THEN PRINT"F2‘ 

80 IF A=5 AND B=1 THEN PRINT'"F4 

90 IF A=6 AND B=1 THEN PRINT"F6" 
100 IF A=3 AND B=] THEN PRINT" F8" 
110 SOTO 10 


Die Codezahlen gelten für den C 64, für den VC 20 müssen aus 
der Tabelle die entsprechenden Werte eingesetzt werden. 

Wenn Sie sich anschauen, was in der Speicherzelle 653 alles 
passiert, dann werden Sie sicher sehen, wie willkürlich die Defi- 
nıtıon der geraden Funktionstasten ist. Statt der Kombination der 
Funktionstasten mit der SHIFT-Taste können wir genauso gut die 
CTRL-Taste nehmen, oder die Commodore-Taste oder alle zwei 
oder...oder...! 

Mit den acht Codewerten in Zelle 653 (0 bis 7) der acht mögli- 
chen Kombinationen der drei Steuertasten kann jede Funktions- 
taste acht Funktionen haben. Das ergibt insgesamt 32 Funktions- 
tasten, und nicht acht, wie die Aufschrift vermuten läßt. Einige da- 
von werden ın dem kleinen Demofnstrations)-Programm einge- 
setzt. Zweck des Programms soll das Umschalten aufverschiede- 
ne Rahmen- und Hintergrundfarben sein. Für den C 64 gilt: 

10 PRINT CHR$(147) 
20 A=PEEK(203) 
30 B=PEEK(653) 
40 IF A=4 AND B=2 THEN POKE 53280,6:POKE 53281,7 
50 IF A=5 AND B=2 THEN POKE 53280,5:POKE 53281,2 
60 IF A=6 AND B=2 THEN POKE 53280,1:POKE 53281,1 
70IF A=1 AND B=7 THEN POKE 53280 .3:POKE 53281,1 
80 GOTO 20 
Für den VC 20 gilt: 
10 PRINT CHR$(147) 
20 A=PEEK(203) 
30 B= PEEK(653) 
40 IF A=4 AND B=2 THEN POKE 36879,126 
50 IF A=5 AND B=2 THEN POKE 36879,45 
60 IF A=6 AND B=2 THEN POKE 36879,25 
70IF A=1 AND B=7THEN POKE 36879,27 
80 GOTO 20 
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Zeile 40 schaltetmitFl und C= die Farbkombination BLAU/GELB 
ein. 

Zeile 50 schaltet mit F3und C= die Farbkombination ROV’GRÜN 
ein. 

Zeile 60 schaltet mit F5 und C = die Farbe Weiß ein. 

Als Spezialität schaltet Zeile 70 in den Normalzustand zurück, 
allerdings mit der seltenen Tastenkombination — (Pfeil links) und 
alle drei Steuertasten (CTRL, SHIFT, C=) gleichzeitig gedrückt. 

Jetzt aber kommt es noch ganz dick! 

Ich habe oben gesagt, daß wir nicht acht, sondern 32 Funktionsta- 
sten haben. Die Verwendung der vier Funktionstasten in Kombi- 
nation mit den acht Steuertastencodes in 653 macht es möglich. 
Dasselbe gilt natürlich für jede andere Taste auch! Zeile 70 im 
Demo-Programm beweist es. 

Da uns insgesamt 60 Tasten zur Verfügung stehen, können wir 
theoretisch 480 Funktionstasten erzeugen — theoretisch, weil ja 
auch die STOP-Taste eine gültige Taste ist. Diese Taste steht uns 
allerdings nur in den Kombinationen mit der SHIFT-Taste zur Ver- 
fügung. Ohne SHIFT tut sie ihre Pflicht — sie stoppt. Mit SHIFT 
aber stoppt sie nicht, so daß wir insgesamt 472 mögliche Kombi- 
nationen haben — sicher mehr, als Sie je brauchen werden. 

Übrigens, von den Kombinationen sind diejenigen mit der 
CTRL- oder Commodore-Taste in Spielen oder Anwenderpro- 
gramme wie Vizawrite oder Programmierhilfen sehr verbreitet. 
Ich kann Ihnen nur empfehlen, diese Art der Tastenabfrage 
ebenfalls zur Steuerung von Programm-Äbläufen einzusetzen. 


TEXTEINSCHUB Nr. 2 


Cursor-Spiele oder der Input-Befehl 
einmal etwas anders 


Die Speicherzellen 204, 205 und 207 haben alle in einer be- 
stimmten Weise mit dem Cursor zu tun. Da die Details bei jeder 
dieser Zellen behandelt worden sind, möchte ich hier zusammen- 
faßtikron Einsatz an einem kleinen Demo-Programm zeigen. 
zu diesem Programm stammt von Russ Davies (COMPU- 
TE! Publications). 

Russ Davies geht von der in vielen Leserbriefen geäußerten 
Unzufriedenheit mit dem INPUT-Befehl aus, der nicht beliebig 
lange Zeichenketten zuläßt und sich auch bei versehentlich ge- 
drückter RETURN-Taste schlecht benimmt. 

Eine Abhilfe wäre der GET-Befehl, aber der wiederum liefert 
keinen auffordernden Cursor. In diese Marktlücke springt das 
folgende kleine Programm, welches die prinzipiellen Anweisun- 
gen zeigt für: 

— Eingabe langer Zeichenketten mit GET 
— blinkender Cursor trotz GET 
— veränderbares Blinken des Cursors 
10 POKE 211,0 
20 POKE 207,0:POKE 204,0:POKE 205,5 
30 FOR I=1 TO 40:NEXT 
40 GET AS 
50 IF A$=CHR$(3) THEN 100 
60 PRINT A$; 
70X$=X$+A$ 
80 GOTO 20 
100 POKE 207,0:POKE 204,0:POKE 211,0 
120 PRINT X$:PRINT:GOTO 20 

Zeile 10 verwendet im Vorgriff auf das nächste Mal die Spei- 
cherzelle 2ll. Dieser Befehl, auch in Zeile 100, setzt den Cursor 
aufden Anfang der logischen Zeile zurück. Zeile 20 müßte eigent- 
lich klar sein. Der Wert des POKE-Befehls für 205 ist interessant. 
Durch ihn kann die Blinkfrequenz des Cursors verändert werden. 


| Bei diesem Programm ergibt der Wert 5 zusammen mit der War- 


teschleife in Zeile 30 eine mäßige Blinkfrequenz. Der Wert 1 läßt 
den Oursor eifrig zappeln. 

Zeile 30 wie gesagt, dientzur Abstimmung der Cursorfrequenz, 
die von der Laufzeit der Programmschleife (20 bis 80) abhängt. 
Trotz des GET-Befehls in Zeile 40 blinkt der Cursor wegen der 
Flaggen in Speicherzellen 207 und 204. 

Zeile 70 baut die Zeichenkette zusammen. Zeile 50 erlaubt ein 
Drücken der RETURN-Taste, wodurch lediglich die alte Zeichen- 
kette mit der neuen Eingabe zusammengebunden wird. Einen 
Aussprung aus der Schleife will ich Ihnen selbst überlassen. Im 
vorliegenden Beispiel geht er nur über die STOP-Taste. 
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Streifzüge durch die 
Grafikwelt (Teil 2) 


Grafik mit dem C 64, dem C 128 oder 
einem anderen Computer. Auf Bild- 
schirm, Drucker oder Plotter. Unser 
Grafik-System nimmt Formen an. 


ie in dieser und den kom- 

menden Folgen gezeigten 
Programme sollen möglichst 
weitgehend unabhängig sein 
von der Ärt des verwendeten 
Grafik-Systems. Ob Sie also ei- 
nen Commodore 64 mit HiRes-3 
oder GBasic (oder...) benutzen 
und die Ausgabe auf dem Bild- 
schirm, dem Drucker oder ei- 
nem Plotter stattfinden lassen, 
ob Sie zu den Glücklichen gehö- 
ren, die schon einen Commodo- 
re C 128 vor sich stehen haben... 
all das soll möglichst weitge- 
hend erfaßt sein. Nicht immer — 
gestehe ich ganz freimütig — 
läßt sich so eine Allgemeingül- 
tigkeit erreichen. Besonders in 
dieser Folge werden die drei 
größeren Programme noch spe- 
zialisiert sein. Die kleineren 
aber — die fürs Auge — sollen 
diese Anforderungen schon er- 
füllen. 

Dazu werde ich allgemein ver- 
ständliche Befehlsworte ver- 
wenden (wie zum Beispiel LINIE 
oder PUNKT etc.) und deren Ent- 
sprechung in zwei Grafik-Syste- 
menangeben: In HiRes-3-Syntax 
und in der Syntax, die mit dem 
Plotter 1520 verwendet wird. 
Falls Sie ein anderes System be- 
nutzen oder einen C 128 Ihr ei- 
gen nennen, dürfte es Ihnen 
nicht schwerfallen, die Syntax- 
Anpassungen vorzunehmen. 
Folgende zehn Befehle sollen zu- 
nächst vorgestellt werden (wo- 
bei sich später noch der eine 
oder andere zusätzliche Befehl 
als nötig herausstellen kann): 
INIT 

Werde ich immer dann ver- 
wenden, wenn die Grafik initiali- 


un 


Bild 1a. Verschlungene 
Spiralen mit HiRes-3 
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siert werden soll. Damit wird die 
Grafik eingeschaltet, eine even- 
tuell Bit-Map eingerichtet und 
gelöscht und die Farbgebung 
bestimmt. 


START 

Soll das Grafiksystem in einen 
definierten Ausgangszustand 
bringen. 
MITTE 

Legt den Koordinatenur- 
sprung in die Bildmitte. 
PUNKT(X,Y) 


Setzt einen Punkt an die Stelle 
x 
LINIE(XA,YA,XB,YB) 

Zieht eine Linie vom Aus- 
gangspunkt XAYA zum End- 
punkt XB,YB. 

KREIS(XM,YM,RX,RY) 

Zeichnet eine Ellipse (RX un- 
gleich RY) oder einen Kreis (RX 
= RY) um den Mittelpunkts@un 
YM mit den Radien RX und RY. 
TEXT(AS,XT,YT) 

Schreibt den Text A$ ab der 
Bildstelle XTYT. 

SHOW 

Ein erstelltes Bild wird ge- 
zeigt. 
NORMAL 

Schaltet den Grafik-Modus ab. 
GRESET 

Führt einen Grafik-System-Re- 
set aus. Danach muß für erneute 
Benutzung der Grafik wieder 
neu iInitialisiert werden. 

In der Tabelle 1 sind diese all- 
gemeinen Befehle aufgeführt zu- 
sammen mit den Übersetzungen 
in die Syntax von HiRes-3 und 
die des Plotters 1520: 

Sehen wir uns dasnun an zwei 
netten Beispielen an. Als erstes 
das Programm »verschlungene 
Spiralen«, welches (siehe Bilder 
la, 1b) mehrere Spiralen (näm- 
lich N), die miteinem Startwinkel 
W aus dem Zentrum heraustre- 
ten, zu einer Scheibe mit dem 
Radius R anordnet. 


Bild 1b. Dasselbe mit 
dem Plotter 1520 


Wort HIRES-3-Syntax 

INIT POKES53280,0 
(Rahmen schwarz) 
SYS37498 (HIRES 
anschalten) 
HFL,6,12 
(blau auf grau) 

START TRS,0,320,0,200 
legt Ursprung 
nach links unten 
x von 0 bis 320 
y von 0 bis 200 

MITTE TRS,-160,160,-100,100 
Ursprung in 
Bildschirmmitte 

PUNKTXY) TPKAXY 

LINIEC&XA, TLN,XA YA ,XBYB 

YA,XB,YB) 

KREIS(XM, TKR,XM.YM,RX, 

YM,RX,RY) RY,2*Pi 

TEXT TEX,A$YT,XT 

(A$,XT\YT) 

un __/ 

SHOW HAN 

NORMAL HOF 

GRESET LOE: AUS 


Plotter-Syntax 
OPENI1,6,1 (Plot X,Y) 


OPEN2,6,2 (Stiftfarbe) 


PRINT #2,0 (schwarz) 
CLOSE2 
PRINT #1,’’M”,0,-200 


PRINT z#1,T” 
Papiervorschub um 

200 Einheiten. Dort auch 
Koordinatenursprung. 
PRINT #1/’R”,240,0 
PRINT #1,T” 


Ursprung in Papiermitte. 


PRINT #1/’R"XY 

PRINT #1”J’,X+2Y+2 

PRINT #1’’R”,X,X 

etwas ungenau, weil einzelner 
Punkt nicht sichtbar. Deshalb 
sehr kleiner Strich. 


PRINT #1” R”XAYA 

PRINT #1’’J",XB,YB 

Hier braucht man ein kleines 
Programm: 

M=50:D = 360*r/(M*180) 
DIMT(M):T(0)=2*r 
FORI=1TOM:TD=T(-D+D 
PRINT #1’ R".RX*COS(TI-D)) + 
XM,RY*SIN(TU-))+YMPRINT 
#1. P,RX*COS(TD)+XM, 
RY*SIN(T(D)+YM 

NEXTI 


OPEN4,6:PRINT #1/’R”, 
XTYT 

PRINT #4,A$:CLOSE4 
PRINT #1/’M",240,YT 
PRINT #1,’T” 


PRINT #1,’R”,0,-200 
Papiervorschub um 
200 Einheiten 
CLOSEI 


OPEN7,6,7:PRINT #7: 
CLOSE7 


Tabelle 1. Die grundlegenden allgemeinen Grafik-Befehle und ihre 
Übersetzung in HiRes-3- oder Plotter-Syntax 


Das Programm »Spiralen« (Li- 
sting |) verwendet die allgemei- 
nen Grafik-Befehle. Dieses Li- 
sting kann jedoch nicht auf dem 
C 64 laufen. Aber je nachdem, 
welchen Computer Sie verwen- 
den, oder welche Basic-Erwei- 
terung, können Sie deren Befeh- 
le hier einsetzen. Listing 2 und 
Listing 3 geben zwei Beispiele. 

Probieren Sie nun mal aus — 
unter Zuhilfenahme der Tabelle 
1— anstelle der allgemeinen Be- 
fehle die HiRes-3-Syntax einzu- 
setzen. Dabei sollte dann etwas 
Ähnliches herauskommen wie 
Listing 2, HiRes-Spiralen: 

Unter Verwendung der Plot- 
ter-Syntax entsteht das Pro- 
gramm Plotter-Spiralen (Listing 
3). 

Sollten Sie ein anderes Grafik- 
System benutzen, können Sie 
solch ein Programm auf ähnlich 
simple Weise übersetzen. 

Als zweites Beispiel soll das 
Programm »Fensterrose« dienen 


(der Name rührt daher, daß das 
Ergebnis aussieht, wie die Fen- 
sterrosen in alten gotischen Kir- 
chen). Auch hier biete ich Ihnen 
drei Versionen: »Fensterrose« ist 
das mit den allgemeinen Grafik- 
Befehlen (Listing 4), »HiRes-Fen- 
sterrose« ist die HiRes-3-Fassung 
(Listing 5) und »Plotter-Fenster- 
rose« schließlich die Plotter-Ver- 
sion (Listing 6). 

Die Ergebnisse finden Sie als 
Bilder 2a und 2b: 

Die Fensterrose-Programme 
fragen nach der Anzahl der 
Stützpunkte auf dem Kreisum- 
fang, dann nach dem gewünsch- 
ten Radius und schließlich noch 
nach dem Ort, an den der Text 
gedruckt werden soll. Wie Sie 
feststellen werden, ist Fensterro- 
se sehr vielseitig, und auf dem 
Bildschirm lassen sich in der 
HiRes-Version Moiree-Muster 
erzeugen. 

1. Eine »Business-Anwendung« 

Eines der Themen, auf die wir 
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in den nächsten Folgen zu spre- 
chen kommen werden, ist die so- 
genannte Präsentationsgrafik, 
die häufig im kaufmännischen 
Bereich Verwendung findet. 
Darunter versteht man zum Bei- 
spiel Balkendiagramme oder 
die vielgeliebten Tortendia- 
gramme. Das hier gezeigte Bei- 
spiel arbeitet mit HiRes-3 und 
unter Umständen einem Druk- 
ker. Es bedient sich eines soge- 
nannten Abweichungs-Balken- 
diagrammes. Von maximal 50 
eingegebenen Werten (Umsatz- 
ziffern, Gewinne, etc.) stellt es 
den Mittelwert alshorizontale Li- 
nie dar und daran dann die posi- 
tiven oder negativen Äbwei- 
chungen der einzelnen Einga- 
bebeträge. Außerdem gibt das 
Programm Auskunft über den 
Zahlenwert des Mittels und die 
maximalen Abweichungen. Ein 
Beispiel für solch ein Diagramm 
sehen Sie in Bild 3: 

Das Programm »AÄbweichun- 
gen« (Listing 7) erfragt zunächst 
die Anzahl der Werte, dann je- 
den Einzelwert. Es ist leicht zu 
ändern, so daß es die Werte 
auch von der Diskette oder Kas- 
sette nehmen kann. Am Ende 
der grafischen Darstellung kön- 
nen Sie durch »D« einen Aus- 
druck auf dem Drucker 1526 
(oder kompatible) erzielen, 
durch »N« eine neue Eingabe 
starten oder durch »E« das Pro- 
gramm beenden. 


2. Ein Plotter-Programm 

Grafik und Mathematik sind 
nicht voneinander zu trennen. 
Eine häufige Anwendung ist die 
Untersuchung von 2D-Funktio- 
nen durch die grafische Darstel- 
lung. Die Zeiten der mühselig 
berechneten Wertetabellen und 
der Kurvendiskussion sind zwar 


noch nicht ganz vorbei (es gibt 
halt doch noch einige exotische 
Funktionen, die dem Computer 
widerstehen), für die weitaus 
meisten Anwendungen ist aber 
das hier vorgestellte Programm 
»Funktionenplot« (Listing 8) lei- 
stungsfähig genug. Es bedarf 
dazu eines Plotters 1520. Zu- 
nächst wird vorgestellt, welche 
Funktion sich derzeit im Pro- 
gramm befindet. Man hat nun 
die Möglichkeit, eine neue 
Funktion einzuspeisen. Danach 
bestimmt man selbst, wıe das 
Koordinatensystem aussehen 
soll (bei einer Ausdehnung von 
mehr als 25 Einheiten in X- 
Richtung wird keine Skalierung 
mehr vorgenommen) und man 
bestimmt, in welchem Teil des 
Systems die Funktion darzustel- 
len ist. Ein Beispiel für die entste- 
henden Plots zeigt Bild 4. 

Es gibt noch eine Menge Raflı- 
nessen, die in diesem Beispiel- 
programm fehlen. Aber die Un- 
tersuchung von Funktionen wird 
uns ebenfalls eine der kommen- 
den Grafik-Folgen beschäftigen. 
Dort sollen dann auch alle Fein- 
heiten zur Sprache kommen. 


Fortsetzung auf Seite 170 


ABWE ICHUNGS -BALKEND IAGRAMM 


16. 1666667 
-35.8333333 


GROESSTE UEBERSCHRE ITUNG 
GROESSTE UNTERSCHRE ITUNG 
MITTELWERT = 1.83333333 


Bild 3. Das Abweichungs-Balken-Diagramm 
















Bild 4. Ein Beispiel zur Arbeit des Plotter-Programmes 
zur Darstellung von Funktionen 






Bild 2a. Der Matrixdrucker 
gibt es nur undeutlich wieder: 
Fensterrose mittels HiRes-3 





V=SINCKI#5IN(CZ) 






Bild 5. HiRes-3 
zeichnet 3D-Funktionen 


REM HFFF FH HH NR 
REM* 3r 
REM+ VERSCHLUNGENE SFIRALEN + 
REM* VERSION M. ALLGEMEINEN BEFEHLEN* 
REM* = 
REM* HEIMO PONNATH HAMBURG 1985 

REM* * 


REMFFRRRRRERRERRRUERTHNNFHHFTKHHHHHFENK 


»:” 
KR 3 


> a I 


Mb 


rg 


AN 
\ 


” 
N) 
Be 
& 
[4 


REM #***#%# EINGABEN FH HH HH HH HH 

® FOKE 535?280,0:PFOKE 53281,0:POKE 6464,5:PR 
INT CHR$ (147) 

15 INFUT"ANZAHL SFIRALEN"3;N: INPUT"TEXTSTAR 
T XT,YT"3XT,YT 

28 INPUT"RADIUS,STARTWINKEL"ZR,A1 

22 INIT 

25 START 

>58 MITTE 


Ar 
Ma. 
op 
Su: 
AR 
Ka 
Als 
Ay 
+ 
2 


“ 
AZ 
»; 
N 
Y 
Nie 


RT 
EN 
ar \ 

AN, 

Der” X) 

er 

KR 

REN 


AZ) 
vr 
une 
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Bild 2b. Von bestechender Schönheit: Die Fensterrose mit 
dem Plotter gezeichnet 


150 Qusap 


Listing 1. Spiralen 
Das Spiralen-Programm mit den allgemeinen Grafik-Befehlen 
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GOSUB 122:KREIS(8,8,R,R) 
AF="VERSCHLUNGENE SPIRALEN" 
TEXT (AF,XT,YT) 


VERSCHLUNGENE SFIRALEN 


VERSION FUERHIRES-3 


1985 


INT CHR#£ (147) 


15 


T XT,YT"3XT,YT 


20 
22 
25 
25 
26 
SQ 
32 
39 
40 
42 
45 
SB 
33 
68 
62 H 
65 
67 
78 E 
188 

182 

185 

118 

115 

128 


125 


150 


ve 
Pe Fe | 


OF 


ND 


REM#+###** UNTERFROGRAMM ZEICHNEN **%* 


INFPUT"RADIUS,STARTWINKEL";R,A1 
REM#**** INIT ##%** 

SYS 37498:HFL,6,12 

REM*#*# START ##%+ 
TRS,8,5320,8,220 

REM*+*** MITTE +*++ 
TRS,-168,1608,-100,100 

GOSUB 188: TKR,@Q2,B,R,R,2#t 
A$="VERSCHLUNGENE SPIRALEN" 
REM##%*% TEXT ##%+ 

TEX,A,YT,XT 

REM###*+ SHOW {HIER UNNDETIG)#*#** 
POKE 198,2:WAIT 198,1 

REM*+**#+ NDRMAL *##*+ 


REM***# GRESET #%### 
LOE: AUS 


NN=N#108:RA=R/NN=:DIM T(NN}:A=A1 
FOR J=1 TO N: A=A+2#t/N 
T=A: TH=2#1/188:T(2)=T 


FOR I=1 TO NN:T(I)=TCI-1)+TH:RR=RA*I 
TLN,„ (RR-RA)#COS (TCI-1)) „ (RR-RA)#SINGTE 


I-1)) ,RR#COS(T(I)) „RR=SIN(T(I)) 


NEXT I 
NEXT J 


RETURN 
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rsetzung in die Syntax von HiRes-3 


Listing 1. Spiralen (Schluß) 


REMIRRHSHHHNKEE NH NH FH NN IHNEN ER 
REM+ 
REM+ 
REM#+ 
REM* 
REM+ 
REM+ 
REMFRRREHSHEKHEHINEHHHNNHE KHK HHNKEHENE 
REM #***# EINGABEN HH HH HER 
FOKE 53288,8:FOKE 53281,8:FOKE 646,5:FR 


ee ee 


INFUT"ANZAHL SFIRALEN"3N: INFUT"TEXTSTAR 


REMIHRRHHSHHHEHHHHNNN KH INNEN 
REM* 
REM* 
REM* 


REM* 


REM+ 
KREMSSRRKHFHNKEHHKHIHKHR HH NH HF NN 
REM ###** EINGÄBEN KHHHXR HH 


8 FOKE 53289,0:POKE 53281,@0:FOKE 646,5:PR 


1 
£ 
3 
4 
5 REM« 
6 
7 
8 
O 
1 


HEIMO FONNATH HAMBURG 


VERSCHLUNGENE SPIRALEN 
VERSION FUER PLOTTER 1528 


1985 


INT CHR#$ (147) 


15 INPUT"ANZAHL SPIRALEN"3N: INPUT"TEXTSTAR 


Listing 3. Plotter-Spiralen 
Das Spiralen-Programm mit der Plotter-Syntax 
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Ss2@2 SHOW 

5 POEE 198,8:WAIT 198,1 

&B N OR MAL 

65 GRESET 

7@ END 

1998 REM##+*##** UNTERFROGRAMM ZEICHNEN ### 
182 NN=N#+1B0Q: RA=R/NN:DIM T{NN?} : A=Ai 

125 FOR J=1 TO N: A=sAtZ#r/N 

118 T=A: TH=-2#t/19098:T(B)=T 

115 FOR I=1 TO NN:T{(I)=TCI-1)+TH:RR=SRA#I 
128 LINIE ({RR-RA)=#COS(T{I-1)), (RR-RA) SING 

T£tI-1)) ,„RR#COS (T(I)) „RR#5IN(TCI)I)) 

2 NEXT I | 

138 NEXT J 

135 RETURN 

8 6A’er 


-2902> 
x155> 
<241> 
092> 
<179> 


sB21> 


B27> 
<1B03> 
B61> 
1538} 
<214> 
„B72> 
048} 
<B335> 
295> 
“2113 
248: 


198: 
209° 
a22> 


rn A A 


<193> 











el, 
22 
23 
25 
26 
30 
32 


33 
ua 


Bo Deu ] 


36 


40 
42 
43 


45 
3 
32 
33 
[=] 7] 


I) 
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65 
78 





4 .XT, 





YT"sXT,YT 


INPUT"RADIUS,STARTWINEEL"S;R,Al 


REM*#*# INIT #*%+* 


OPEN 1,6,1:0PEN 2,6,2:PRINT#2,B:CLOSE 2 


REM*#**# START ##%#%* 
FRINT#1,"M",„Q,-289:FRINT#1,"I" 
REM*#*#** MITTE #*#* 


FRINT#1,"R" ,248,8:FRINT#1,"I":G0OS5SUB 188 


REM ##*#+ KREIS #####*+ 


M=5Q: D=360*#1/ (M#*188):DIM K(M) :K(QB)=2x«t, 
FOR I=1 TO M:K({I)=K{iI-1)+D:PRINT#1,"R", 


R*C0OS(K(I-1)) ,„R#SIN(K(I-1)) 


FRINT#1,"J" ,„R*COS(K(I)) „R*#SIN(K(I)):=NEX 


T I:FRINT#1,"H"” 
AF="VERSCHLUNGENE SFIRALEN" 
REM#### TEXT #### 


OFEN 4,6: FRINT#1,"R",XT,YT:PRINT#4,A$:C 


LOSE 


4 


PRINT#1,"M" 248,-VT:PRINT#1,"I" 
REM*#*#%* SHOW x#** 
FRINT#1,"R" ,8,-200: PRINT#1,"1" 


FOEE 


198,B:WAIT 198,1 


REM**** NDRMAL ###* 
PRINT#1,"H":CLOSE 1 
REM***# WERTE AUSDRUCKEN #####* 


OFEN 3,68, 3:FPRINT#3,8:0OFEN 4,54:PRINT#4:P 
RINT#4," N",„" {ZSPACEYIXT" „" {2SPACEIYT"," 


2SPACE}R" „" {2SPACE}YW" 


FRINT#4,N,XT,YT,R,Al:PRINT#3,1:FRINT#4: 


CLOSE 4:CLOSE 3 


REM#**** GRESET 


OFEN 
END 


T=A: 


3 FOR 
PRINT#1,"R", (RR-RA}*#COS(T(I-1)),,„ (RR-RA 


)*SI 


8 Ed’er 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


-SDSJONOcUPBURN- 


#44% 
7,6, 7:PRINT#7:CLOSE 7 


REM##*%*%** UNTERPROGRAMM ZEICHNEN **#* 
NN=N#1Q92: RA=R/NN: DIM T{NN) :A=Ai 
5 FOR 


J=1 TO N:A=sA+2#t/N 
TH=2#*1/1B82:T(@)=T 
I=1 TO NN:T(I)=TCI-1)+TH=:RR=RA#I 


N(T(I-12) 


FPRINT#1,"J" „RR#*COS(T(I)) ,„RR#=SIN(T(I)) 


155 RETURN 


ERRRARIHIIIIEEEK 
* 

* FENSTERROSE 
#* VERSION M. ALLGEM. 
+ 

* HEIMO FONNATH HAMBURG 1985 
a 

KEKKKHHRRÜNKHRHNKEIHTT TRIERER FR 
*44+# EINGABEN #%%*3+% 


BEFEHLEN 


I BE. ‚uE. SE Zur Zu 


INT CHR#& (147) 


INPUT "ANZAHL STUETZPUNKTE";N 
INFUT"RADIUS"ZR: INPUT"TEXTORT XT,YT"3XT 


„yYT 


25 IN 


125 N 


1680 
220 
218 


IT 


START 
MITTE 
D=2*t/N:DIM X(N) ,Y(ND 
KREIS (®,@,R,R) 
GOSURB 220 
AF="FENSTERROSE" 
TEXT(A#,XT,YT) 
SHOW 
FOKE 198,0:WAIT 198,1 


OR MAL 


GRESET 

END 

REM ###*** UF ZEICHNEN #34 0%% 
FOR I=1 TO N:T=T+D:X(I)=R*COS(T)=:Y{tI)= 


R*5IN(T)I=SNEXT I 


220 
23 

240 
245 L 


250 


8 Ed’er 


S=N-1 
FOR I=1 TO S:Z=I+1 
FOR J=Z TON 


INIECX(IT) ,YCID),X(J),Y(J)) 


NEXT J:NEXT Iz:RETURN 


233? 
-29797> 
<173> 
x236> 
<B97> 
x237> 
“1827? 
<1777> 


<x1Bi>. 


<212> 


<194> 


<1380> 
241} 
<0972> 


1743 
<125> 
<224> 
xB72> 
-027> 
z1853> 
<145> 
<B73> 


<B42> 
“1332 
<194> 
<B92> 
<848> 
<B33> 
»885> 
<211> 
<B48> 


<2B1> 
<sB47> 
<209> 
<222> 


<s195> . 


Listing 3. Plotter-Spiralen (Schluß) 


B FOKE 53280,0:POKE 53281,90:FOKE 646,5:PR 


Listing 4. Fensterrose. Ein gotisches Rundfenster, 


programmiert mit allgemeinen Grafik-Befehlen 
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1 REM HR HH RR OFEN 4,6: FRINT#1,"R",XT,YT=:PRINT#4 ,A#: 
2 REM CLOSE 4:PRINT#1,"M",248,-YT:FPRINT#1,"I 
3 REM FENSTERROSE " <067> 
4 REM VERSION FUER H IRESSFS 185 REM #### SHOW ##*%** <9Q44> 
5 REM 118 PRINT#1,"R",28,-220 <218> 
6 REM HEIMO FONNATH HAMBURG 1985 115 REM###rR#H#+ <178> 
7 REM 12@ FOKE 198,B:WAIT 198,1 <092> 
8 REM KRHHHHHEEHEIIHHHNNNHTHHHHN HN NHERH 125 REM #### NORMAL #%%%#% <2392> 
9 REM ##*#* EINGABEN ###%## 138 OPEN 3,64,3:FRINT#3,9:0OFPEN 4,5:FRINT#4: 
18 POKE S53288,B:POEE 53281 ,8:FOKE 6&454,5:FR PRINT#4," N" „" {SSPACEIR" „" SASPÄCEIXT", 
INT CHR#(147) "<ASPACEYYT" <B01 > 
15 INPUT"ANZAHL STUETZPUNKTE";N 152 FRINT#4,N,R,XT,YT=:PRINT#3,1:FPRINT#4: CL 
INPUT"RADIUS"3;R: INFPUT"TEXTORT XT,YT"sXT USE 3:CL0SE 4:CL0S5E,1 <1657> 
al 135 REM *#**# GRESET ##%*%*%* <B56> 
REM #**## INIT ##r*%*%+ 158 OPEN 7,6,7:FPRINT#7:CLOSE 7 <a05> 
SY5_37AIG:HFL,A,12 168 END <162> 
REM **%##* START #%#%*%*% ZUD REM #####* UP ZEICHNEN ######%#%#* <Q54 > 
TRS,„,0,329,08,208 zı8B FOR I=1 TO N:T=T+D:X(I)=R*CoOsS(T):Y(tI)= 
REM #*** MITTE ###*+ R*S5SIN(T)=NEXT I <127> 
TRS„-189,16890,-129,190 229 S=N-1 <a99> 
REM+Rt#H#%*+ 238 FOR I=1i TO S:Z=I+1 <B453> 
=2#T/N:DIM X(N) ,„Y(N) 24B FOR J=Z TUN <B14> 
REM ****+ KREIS ###%## 242 REM ##**%# LINIE ##*%*+ <232> 
TKR,„,Q,QB,R,R,2#t, 245 FRINT#1,"R",X(I) ,„Y{(D=PRINT#1,"J",X(J) 
REM#####r+ „Y(J) <279> 
GOSUB 298 247 REM###RrR#** <B5a> 
AF="FENSTERROSE" 258 NEXT J:NEXT I:RETURN <B70> 
REM *### TEXT ###%%+ 2 cc 
TEX AS YT.xT 8 64’er Listing 6. Plotter-Fensterrose (Schluß) 
REM #***#* SHOW (HIER UNNDETIG) ###%*#* 
REM#+#=##r# 
POEE 19798,@:WAIT 198,1 
REM ####+ NORMAL *##3#+** 1 KRRHRFRRFRNRHRHNFFRHH HF RN FR RHRFR <132> 
HOF 2 Fr * <B51> 
REM #**#+ GRESET ###*#+ 3 ® ABWE ICHUNGSBALKENDTIAGRAMM * <195> 
LOE: AUS 4 * MITTELS HIRES-3 * <@78> 
END 5 * * <B54> 
REM *#*%%%% UP ZEICHNEN Ka & * HEIMD FONNATH HAMBURG 1985 #* <131> 
FOR I=1 TO N:T=-T+D:X{I)=R#+COS(T):Y(I)= m * <B05&6> 
R#5IN(T)=NEXT I 8 * HIRES-S3 MUSS IM SFEICHER SEIN # «934 > 
S=N-1i 9 ERKRANKTE HH NH N N HH HH HF RER <14B8> 
FOR I=1 TO S:Z=I+1 <a72> 
FOR J=Z TO N WI®TEIREM ++++++++ INITIALISIEREN ++++44+++  _ <173> 


REM #*#*** LINIE ##%#** 
IENKCII-VCII LICHT VCH 


REM <B82> 
POKE 52,112:POKE 56,112:5YS 37498:G0T0 
65 <a15> 
REM <B972> 
REM ++++++ UP CURSOR SETZEN +44+4+44++ <BDB5> 
REM <1982> 
FOKE 211,SP:FOKE 214,ZL:5YS 58649: RETUR 
N <0553> 
REM CH12> 
REM +++++ EINGABETEIL +++ <189> 
REM <122> 
FRINT CHRF(147):5YS 34647: FOKE 646,14:Z 
1L=18:5P=5:60SUB 45 <207> 
FRINT"BALKENDIAGRAMM WELCHES DEN": ZL=12 
:GOSUB 45 <a9u> 
FRINT"MITTELWERT UND DIE ABWEICHUNGEN" : 
ZL=-14:G60SUB 45 “254 > 
FRINT"GRAFISCH DARSTELLT. ":FAU,S:PRINT 
CHR# (147) :Z1L=198:SP=7:6G0OSUB 45 <@11> 
FRINT"WIEVIELE WERTE (MAX=S8) "z:1INPUT 
N <159> 
9B DIM WÄ{N) „AtN)=FRINT CHR#(147) <133> 
95 MA=90:MI=B 1133 
188 FOR I=1 TO N:FRINT"WERT NUMMER "I"="z;: 
INPUT W{I)= S=5+W(I)=NEXT I <9&7> 
125 REM <167> 
112 REM + BERECHNUNG DER ABWEICHUNGEN + <197> 
128 REM <182> 
125 M=S/N:FOR I=1 TO N:A(CI)=SWII)-M: IF A(I) 
»MA THEN MA=A(CI) <15B> 
138 IF ACI><MI THEN MI=A(CI) <B88> 
1535 NEXT I <2197> 
148 REM <292> 
145 REM ++++ BILDSCHIRMAUFTEILUNG +++++ <B> 
1S5@ REM <212> 
155 Q=MA+ABS (MI) :UO1=. D6#B: QO2=. 2#Q: Mi=MA+Q1 
: M2=MI-O2 <2B1> 
168 DX=INT (328/N?: TRS,-5,517,M2,M1 <E973> 
155 REM 2277 
170 REM ++++++ ZEICHNEN ++++++ <241> 
175 REM <237> 


Listing 7. Abweichungen. Ermittelt und zeichnet den Durchschnitt 
und die Abweichungen davon: Das Programm Abweichungen 


REM#xHH#%*%* 
NEXT J=NEXT I:RETURN 


Listing 5. Hires-Fensterrose. 


@ 64er Fensterrose, übersetzt in die HiRes-3-Syntax 


REM ERKENNEN NN N NIT TRRR <951> 
REM <B51> 
REM FENSTERROSE <287 > 
REM VERSION FUER PLOTTER 1528 E31? 
REM <B54 > 
REM HEIMO FONNATH HAMBURG 1985 SISL> 
REM <856:> 
REM KUHN FERNNFR <B58: 
REM ##*%* EINGABEN ##*#*+ <162> 
POEE 53289,8:FOKE 53281,B:FOKE 644,5:PR 
INT CHR#(147) <124> 
INPUT"ANZAHL STUETZFUNKTE";N <Bu8> 
INPUT"RADIUS"sR=: INFPUT"TEXTORT XT,YT"3XT 
ES | <138> 
REM *%*** INIT #x*#%*#* SEII 3 
OPEN 1,68,1:0PEN 2,6,2:PRINT#2,1:CL0SE 2 <251> 
REM ###* START *##**%* <Böl> 
FRINT#1,"M",„Q,-288:PRINT#1,"I" 251? 
REM #*#** MITTE ##*+#*+ ae, 
FRINT#1,"R" ,„248,B:FRINT#1,"I" <2B0> 
REMx#H#HHHH+ “202 > 
=2#T/N:DIM X(N),„YtND ER FE 
REM #*#*#* KREIS ###%%* <9497> 
M=58:DD=359*1/ (M*18B) :DIM T{M):T(B)=?x*t, Z121> 
FOR I=1 TO M:T(I)=TtI-1)+DD:FRINT#1,"R" 
„R*COS<T(I-1)) ,R#*SIN(T(I-1)) “2356: 
FRINT#1,"J" ,R#*COS(T(I)) „R*SINCT{I)):NEX 
T- 1 <173> 
REM+####H+# ERPR% 
GOSUB >98 <B52> 
AF="FENSTERROSE" <BB5> 
REM ##3** TEXT #%%%*%* <16&4> 


Listing 6. Plotter-Fensterrose. 
Die Übersetzung in die Plotter-Sprache 


SION UPUN» 
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540 
345 


8 &d’er 


SONO PUAnNM 


48 


= 
u 


58 
35 
68 


BB 
35 
98 
95 


180 IF 


HFL,14,6:TLN,-1,8,319,8:5YS 35256: X=®@ 

FOR I=1 TO N:IF AtI)>@ THEN:TRE,X,A(I) 
‚X+DX,2:60T0 195 

TBK,X,8,X+DX,A(I) 

X=X+DX:NEXT I 

ZL=@: SP=5:G60SUB 45: PRINT"ABWEICHUNGS-B 

ALKENDIAGRAMM" 

ZL=21:5P=1:60SUB 45:PRINT"MITTELWERT = 
"M:ZL=22:605UB 45 

PRINT"+ MAX "MA,"- MAX "MI 

ZL=23:605UB 45: PRINT"E = ENDE","N = NE 

U","D = DRUCKEN" 

REM 

REM +++++ MENUE-AUSWERTUNG ++++++++ 

REM 

GET At: IF A$<>"E"AND A$<>"N"AND As<>"D 
"THEN 235 

REM 


REM 
IF At="N"THEN SYS 35377:HOF:RUN 
REM 
OFTION DRUCKEN 
REM 
IF A$="D"THEN GOSUB 318:HOF:PRINT CHR$ 
(147):G0OTQO 215 
REM 
REM ----- OPTION PROGRAMMENDE 
REM 
SYS 35377:HOF:END 
REM 
OPTION DRUCKEN UP 
REM 
SYS 35377:0PEN 1,4,1@:PRINT#1:CLOSE 1: 
OPEN 1,4 
FRINT#1, "ABWEICHUNGS-BALKENDIAGRAMM":S 
YS 34865 
PRINT#1,"GROESSTE UEBERSCHREITUNG 
a 


mM 


PRINT#1,"GROESSTE UNTERSCHREITUNG 


I 


FRINT#1,"MITTELWERT = 
1: RETURN 

REM 

REM x##%%##% 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


"mM 


"M:PRINT#1:CLOSE 


DAS WARS ! 


Listing 7. Abweichungen (Schluß) 


EHEN 


Bu. 2 2 2 2 2 2 2 2 2 2 2 272 2 2.2 2 2 2 2 2 2 21212 21202727277 
* 

* FLOTTEN BELIEBIGER FUNKTIONEN 
* MIT DEM FRINTER/FLOTTER 1528 
= 


* HEIMDO PONNATH HAMBURG 1985 
* 
KEREEEKUKHNHHHNHNHN HE NHN 


I. ae. ZEr ZE Ze Zee 


GOTO 25 
REM ++4++++4++ UP CURSOR SETZEN ++++++ 
FOKE 211,SF:POKE 214,2:5Y5 58648: RETURN 


REM ++++++++ HAUPTFROGRAMM TEIL 
FRINT CHR# (147): 2Z=190:5P=1:6OSUB 
FRINT"IM PROGRAMM BEFINDET SICH 


1 + 
15 
DIE FUN 


KTION: " 


K=1:605UB 99: K=9@:FRINT:PRINT"Y= 


"F$:Z=1 


B:GDSUB 15 


FRINT CHRE (18) "A"CHRF (146) "LTE ODER 


2 CH 


RE(18) "N"CHRE$ (1458) "EUE FUNKTION 7" 
GET At: IF A$t<S>"A"AND At<>"N"THEN 45 


IF 


AS="A"THEN 85 


REM ++ NEUE FUNKTION INS PROGRAMM ++ 
=20:SP=3:60SUB 15:PRINT"NEUE FUNKTION: 
":INPUT"Y= ";F$:POKE 646,6 

FRINT CHR$(147)CHR$ (17) CHR$ (17) "IOF$="C 
HR$ (34) F$CHR$ (34) 

FRINT"FSDEFFNA (X)="F$:PRINT"RUN8S"=PRIN 
T CHR$(19N3; 

FOKE 631,13:POKE 632,13:FOKE 633,13:POK 
E 198,3:END 

REM ++++++++ HAUPTFROGRAMM TEIL 2 + 
PRINT CHR$(147):POKE 646,14 

FF="X12/2" 

DEF FN AtX)=Xt272 


K=1 THEN RETURN 


185 REM ++++ VARIABLE UND FUNKTIONEN ++ 
118 DEF FN T{X)=INT(479/(X0Q-XU)*X) 
115 X=8: Z=9: SP=9: XU=-1:X0=5: YU=-1:YO=5:YM= 
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<155> 
<poR> 
<228> 
sB52> 
<2358> 


1775 


xB25> 


«172> 
<a2&> 
<188> 
<a56> 


21697} 
<Q4&6> 
133 > 
<BS56> 
289 > 
<D&8B> 
<141> 
<878> 


“09797 
888? 
“116> 
89587 
«807537 
„108; 
147 
S11B> 


ei 
Ze 


-B22Z> 


BI5> 





<152> 
<aS1> 
<B97> 
<118> 
-054> 
<151> 
056> 
<139> 
<B19> 
-077> 
<B27> 
x228> 
x141> 


0425 


<212> 
x2B7> 
<BS56> 
-B21> 


<Q28> 
15897? 
251? 


sB355> 
848} 
<215> 
1777 
<118> 
-199> 
z240> 
<192> 


1780 
175 
188 


182 


185 
178 


5 FRINT"ZU VERWENDEN. 


6: XA=XU: XE=XU 

X1=B: X2=@: Y1=9: Y2=9:D=150:DY=.1:1=18:M 
=1B:DX=.2 

Arzt" 

REM +++ PLOTTERKANAELE DEFFNEN ++++ 


5 OPEN 1,6,1:0PEN 4,6:0PEN 2,6,2:0PEN 3, 


6,3: PRINT#2,3 

REM +++++ FARAMETEREINGABEN +++++++ 

Z=0: SF=8:60SUB 15:FRINT"FUNKTION Y="F# 

7Z=2:60SUB 15:PRINT"(FALLS SIE MIT UNST 

ETIGKEITEN RECHNEN, " 

FRINT"DANN VERMEIDEN SIE ES, DIE FOLST 

ELLEN" 

FRINT"ALS PARAMETER (XU,XO,EVTL.XA ODE 

R XE) " 

D SOLLTE DANN KLEI 

N SEIN." 

Z=7:SP=190:G0SUB 15:PRINT"XU UND X0O =" 

Z=14:SP=1@8:605UB 15:PRINT"YU UND YO =" 

Z=1&:SP=®:G0SUB 15:PRINT"SPEZ. ZEICHEN 

BEREICH GEWUENSCHT (J/N) ?" 

Z=22:SP=19:G60SUB 15:PRINT"SCHRITTWEITE 
(D=CA. 158) " 

Z=7:SP=25:60SUB 15: INPUT XU,XO 

YM=INT (998* (XD-XU) /479) : Z=9: SP=3: GOSUB 
15:PFRINT"YU MINIMUM = ",„-YM/2 

Z=18:5F=3:605UB 15:FPRINT"YO MAXIMUM = 

“" YM/2:Z=11:SP=®:G0SUB 15 

FRINT" (DIE SUMME AUS BYUR UND YO DARF 

“"YM:PRINT" NICHT UEBERSCHREITEN!) 

Z=14:SF=25:60SUB 15: INPUT YU,YO: IF (YO- 

YU)>YM THEN 285 

Z=16:SP=36:60SUB 15: INFUT At: IF As<>"J 

"AND A$<>"N"THEN 210 

IF A$="N"THEN XA=XU: XE=X0:60T0 232 

Z=18:SF=3:G60SUB 15:FRINT"(XA > XU UND 

XE < XO !* 

Z=28:SP=19:60SUB 15:PRINT"XA UND XE =" 

:SFP=25:60SUB 15: INPUT XA,XE 

IF XAXXU OR XE>XD THEN 225 

Z=22:SF=32:60SUB 15: INPUT D 

REM +++ FLOTTEN ANFANGSWERTE ++++++ 


DrEAAGPRRNTHL,"H"EPRINT#1,"M",FN T(-XU) „-FN 


T(YO):PRINT#1,"I" 
X1=FN T(XU)+1:X2=FN T(XO)-1:Y1=FN T(YO 
)-1:Y2=FN T(YU)+1 

REM +++ PLOTTEN KOORDINATENSYSTEM + 
PRINT#1,"R",98,Y1:PRINT#1,"J",8,Y2:PRIN 
T#1,"R" ,X2,8:PRINT#1,"J",X1,0 

REM +++ PLOTTEN SEKALIERUNG ++++++++ 
DY=(XD-XU) 7/47 

FOR I=XU+1 TO X0-1:M=INT(I):PRINT#1,"R 
"‚FN T(M)„FN T(®O) 

FRINT#1,"J",FN T(M),FN T(-DY) 

NEXT I 

FOR I=YU+1 TO YO-1:M=INT(I):PRINT#1,"R 
".„FN T(@),„FN T(M 

PRINT#1,"J",FN T(DY),FN T(M) 

NEXT I:PRINT#2,® 

REM #** PLOTTEN FUNKTION ++++++++++ 

IF FN T(FN AtXA))>Yi1 THEN PRINT#1,"R", 
FN T(XA) ,„Y1:G0T0 328 

IF FN T(FN AtCXA))<Y2 THEN FRINT#1,"R", 
FN T(XA) „Y2:G60T0 328 

FRINT#1,"R",FN T(XA),FN T(FN At(XA)) 
FOR X=XA TO XE STEP(XO-XU)/D 

IF FN T(FN A(X))>Yı1 THEN PRINT#1,"R",F 
N T(X),Y1:G60T0 348 

IF FN T(FN A(X))<YZ2 THEN FRINT#1,"R",F 
N T(X) ,Y2:60T0 348 

FRINT#1,"J",FN T(X),FN T(FN A(X)) 

NEXT X 

IF(XO-XU) >25 THEN 485 

REM +++ FLOTTEN EINHEITENZAHLEN +++ 
PRINT#?2,3:FRINT#3 ,8:DX=(XO-XU) 7/28 

FOR I=XU+1 TO X0-1:M=INT(I):PRINT#1,"M 
".FN T(-XU) ,-FN T(YODI =PRINT#1,"I" 
PRINT#1,"R",FN T(M),FN T(-DX)=zIF M=Q T 
HEN 375 

FRINT#4,M; 

NEXT I 

FOR I=YU+1 TO YO-1:M=INT(I):PRINT#1,"M 
"„EN Tt-XUI,-FN TCYDI sPRINT#1,"1" 
PRINT#1,"R",FN T(DX),FN T(M):IF M=8 TH 


Listing 8. Funktionenplot. 
Erspart die Wertetabelle: Das Programm Funktionenplot 


<145> 


<228> 
<-154> 
<162> 


<252> 
<Q81> 
<231> 
<164> 
<B41> 
<145> 
<248> 
<255> 
<B32> 
<228> 


<Bö5> 
<253> 


<au5> 


<242> 


<239> 


<x255> 


<B16> 
<149> 


<128> 


<151> 
<B46> 
<B40> 
“2477 


<214> 


<1297> 
<B93> 


<B46> 
<144> 
<249> 


sB22> 
<182> 
<x11B> 


<115> 
<121> 
<B205> 
<B25> 


<24B> 


<185> 
<B777> 
<174> 


<2B4 > 


<x169> 
<B56> 
-054> 
<x237> 
2457? 
<B3535> 


<109> 
<106> 
<176> 
<205> 


<1685> 
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EN 395 <@11> 245 SF=9:ZL=18:G0SUB 40 <Q64; 
FRINT#4 ,M; <196> 259 25=2#XUXxSOR (2): 26=2#YURSOR(DI: IF Z5>Z6 
5 NEXT I <225> THEN FRINT"ZU MINIMAL="Z25:60T0 268 <@94> 
REM +++ PLOTTEN FUNKTIONSNAME +++++ <228> 255 PRINT"ZU MINIMAL="Z6 <Q49> 
5 PRINT#2,2 <146% 268 SF=7:Z1L=12:G05UB 48: INFUT"ZU,20=";ZU,Z 
PRINT#L,"M",FN T(-XU) ,-FN T(YO):PRINT# 0: Zi=FN Z(ZO):Z2=FN Z(ZU) <a51> 
1," I":PRINT#1,"R",X1,Y2 <209> 265 IF Z1>X0 OR Z1>YO THEN 235 <227> 
PRINT#1,"J",X2,Y2:PRINT#1,"J",X2,Y1:PR 27@ IF 22<XU OR Z2<YU THEN 235 <@16* 
INT#1,"J",X1,V1:PRINT#1,"J",X1,Y2 <22@> 275 REM <083} 
420 FRINT#4:PRINT#4:FRINT#2,1:PRINT#3,1:PR 280 REM +++ EINGABE ZEICHENPARAMETER ++ <165> 
INT#4,"Y = "F$:PRINT#4:PRINT#2,® <058> 285 REM <093> 
425 REM +++ PLOTTERKANAELE SCHLIESSEN + «166> 290 ZL=14:SP=1:60SUB 48: PRINT CHR$ (18) "UNS 
430 CLOSE 1:CLOSE 2:CLOSE S:CLOSE 4 <B81 > ERE ZEICHNUNG: "CHR$ (146) 2115} 
435 END <183> 295 ZL=16:5P=3:605UB 40: INFUT"ZEICHEN- UND 
HINTERGRUNDFARBE=";F1,F2 <B47> 
6 64er Listing 8. Funktionenplot (Schluß) 30® ZL=18:SP=7:G0SUB 48: INPUT"SCHRITTWEITE 
VON Z=";A <115> 
305 ZL=20:G0SUB 48: INPUT"X-BEREICH XA,XE=" 
ıXA,XE <B56> 
1 REM KEHHEHE EEE EEE 132» Ssi@ ZL=21:605UB 49: INPUT"Z-BEREICH ZA,ZE=" 
2 REM * P 051: ;‚ ZA,ZE <815> 
3 REM # SZD-SRAFIK MITTELS HIRES-I + <161> 515 REM u 
4 REM * * <053* 320 REM +++ ZEICHNEN +++ <B49 > 
5 REM * HEIMO PONNATH HAMBURG 1985 * <138> 525 REM “1557 
& REM * ä <0s5> 338 DZ=A/2: XT=XU: XH=X0: YT=YU: YH=YO <215> 
7 REM * HIRES-3 MUSS IM SPEICHER SEIN + <033> 555. HFL,F1,F2: TRS,XU,X0,YU,YO er 
8 REM FH HH HERHUHHRHRRHRHERTHHHHH HEHE 139} >42 REM “148> 
7 REM 20713 345 REM ---——- KOORDINATENKREUZ --———— <141> 
10 REM ++ INITIALISIEREN DER GRAFIK ++ @36: ZnGEn 138? 
15 REM Kar 355 TLN,XU,0,X0,@:TLN,@,YU,8,YO: TLN,Z2,Z2, 
20 FOKE 52,112:POKE 56,112:SYS 37498:60T0 SER IErzE BER 
&o Yosgs 362 REM <168> 
2= REM Su 365 REM --——- Z-SCHLEIFEE <208> 
3® REM ++ UP CLURSOR SETZEN ++++++++++ 182% me Ben 1797 
35 REM ee 375 FOR Z=ZA TO ZE STEF DZ:ZZ=FN Z(DZ):XT= 
40 FOKE 211,SF:FOKE 214,21L:5Y5 58648: RETUR KIEDEEERSTCHET ENTER NFEINEE mn 
= Ken 382 TRS,XT,XH,YT,YH <215> 
45 REM no 385 FUNKT,A,XA,XE <224> 
58 REM +++ EINGABE DER 3D-FUNKTION ++++  <B51> SPESEN, 2 mem? 
u ei 395 TEX,"Y="+F$,0,3 <191> 
68 FRINT CHR$(147):5Y5 34647: POKE 646,14:2 ne age 
==. SPS: GOSUR 40 485 REM ---—- ZEICHNUNG FERTIG --———— <071> 
65 PRINT"FUNKTION IM FROGRAMM: " GR HNL RE a 
Ta sEnen jadsken u 415 GET A$:IF As=""THEN 415 <B68* 
75 PRINT:FRINT TAB(3) "Y="F&:FRINT «O1B> TREE Er 
SD PRINT TAB(S)ICHR$ (18) "A"CHRS(146) "LTE OD ae 32332 
ER "CHR$(18) "N"CHR$ (146) "EUE FUNKTION? 207: ee BE er 
85 GET As$:IF A${>"A"AND A${>"N"THEN 85 22493 BERERAURERN a ae 
Str Area Ten. Tin | änazs 440 ZIL=23:SP=1:60SUB 48 <158> 
5 PRINT CHR$ (147) :SP=3:2L=12:60SUB 42: INP 445 PRINT CHR# (18) "E"CHRE (146) "NDE{4SPACE} 
UT"VE"F$:POKE 646,6 (255% "CHR$ (18) "G"CHR$ (146) "RAFIK" <183> 
1B8 FRINT CHR$ (147) CHR$ (17) CHR$ (17) "18QF$= 438 21L=25: SE =1H:60SUB 40 “1867 
rRetarermsıa, EN 455 PRINT CHRE# (18) "N"CHR$ (146) "EU{SSPACE}" 
112 PRINT"RUN14@":PRINT CHR$(19); iss 460 GET At: IF AS<>"E"AND A$<>"G"AND A$<>"N 
115 POKE 631,13: POKE 632,15:POKE 653,13: F0 "re u in ro 
KE 198,3:END EB73: 465 REM <@17> 
120 REM Zus, 470 REM ----—— OPTION GRAFIK -——————— <083> 
125 REM +++ NEUBEGINN DES PROGRAMMES ++ <@21> BE or “0273 
142 PRINT CHR£(147):FOKE 646,14 <B12: +99 REN 057: 
145 REM 2207 > 498 REM. ------—— OFTION DRUCKEN --—-—- <D33> 
152 REM +++ FUNKTIONEN UND VARIABLE +++ 2158: 475 REM <@47: 
155 REM co17> SOB IF At="D"THEN:HAN:OFEN 1,4,1@:FRINT#1: 
168 X=8: Z=2: SF=B: ZL=B: XU=@: X0=9: YU=B: YO=B: ECLOSE 1:5Y5 54865: HOF <069> 
Z3=B: Z4=B: Z5=B: 76=Q: ZU=B: Z0=® 2{1853> 585 IF Af="D"THEN OFEN 1 „4A:tHkKINT#i :FRINT#1 
165 Z1=8: 72=8:F1=1:F2=6:A=1:XA=B: XE=B: ZA=Q „ " AU="XU,"X0="X0,"YU="YU,"YO="YO 0097} 
: ZE=B: DZ=1:XT=QB: XH=B: YT=B: YH=9: 7 7=1 129% SsıB IF At="D"THEN FRINT#HI „.7/U- El, "Z0="I0, 
170 REM £232> "A="A <239> 
175 Az" re S1S IF As="D"IHEN PRININI,"XN "XN,"XE="XE, 
188 F#="SIN(CX)#SIN(ZY" <QS1% "ZAa="ZA,„"ZE="ZE:FRINT#1:CLOSE 1:60T0 4 
185 REM <247> u <059> 
190 DEF FN AtX)=SIN(X)*SIN(Z) <113> en En 
208 IF K=1 THEN RETURN 209% 358 REM “884 > 
205 REM <011> 535 IF At&="N"THEN RUN <053> 
21@ REM ++ EINGABE KOORDINATENSYSTEM ++ <144% s4@ REM <Q94 > 
215 REM da>1> 545 REM --- DFTION FROGRAMMENDE -—-—— <127> 
22® SF=1:ZL=3:605UB 48 <111% Ss5@ REM <194> 
225 FRINT CHR$ (18) "UNSER SYSTEM{4SPACE}Y: "C Ey ie 0477 
HR* (146) :SP=7:ZL=5:G0SUB 48 <085> BR IE REIN DAS WARS. EEE “2027 
23@ INPUT"XU,X0=";XU,X0:ZL=&:G0SUB 48: INPU 8 64’er 
T"YU,YO="; YU,YO:SP=9: ZL=8:60SUB 48 <176> set 
235 23=2#X0*SQR (2) :24=2#YOxSOR (2): IF Z3£74 Listing 9. 3D-Programm. ss 
THEN PRINT"ZO MAXINAL="zHEnTn Be > Schnell geworden: Das 3D-Programm aus der Grafik-Serie mit 
240 FRINT"ZO MAXIMAL="Z4 +65 Er HiRes-3. 
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Als krönender Abschluß dieses Kurses 
wird das Programm Sound-Editor zu 
einem kompletten Synthesizer-Pro- 


gramm ergänzt. 


In der heutigen und letzten 
Folge des Synthesizer-Projekts 
soll der in Teil 9 beschriebene 
Sequenzer in den Sound-Editor 
integriert werden. Zum Sequen- 
zer gibt esim Gesamtprogramm 
ein eigenes Untermenü, von 
dem aus er gestartet und ge- 
stoppt werden kann. In diesem 
Untermenü kann man auch das 
Spieltempo und einige weitere 
Parameter interaktiv einstellen. 
Damit liegt jetzt ein komplettes 
Synthesizer-Programm vor, das 
von den vielen klanglichen 
Möglichkeiten her die kommer- 
ziell angebotenen Synthesizer- 
Programme für den C 64 über- 
treffen dürfte. Für die grafische 
Gestaltung gibt es natürlich 
schönere und aufwendigere 
Konzepte, diese waren aber 
auch nicht das Thema dieses 
Kurses. 

Um zu dem erwähnten Kom- 
plettprogramm zu gelangen, be- 
nötigt man diesmal mehrere Tei- 
le aus verschiedenen Äbschnit- 
ten des Kurses: 


MODULATOR (Teil 4) 
SOUND EDITOR (Teil 6) 
SEQUENCEROB]J (Teil 8) 
REM TEXT KILLER (TeillO 
/Listing ]) 
SOUND.ED.ZUSATZ (TeillO 
/Listing 2) 
SEQ.ERGOBJ (Teil 10 
/Listing 3) 


Zunächst muß das Programm 
»Sound-Editor« erweitert wer- 
den. Da es den zur Verfügung 
stehenden Speicher ($0801 — 
$8FFF) fast vollständig belegt, 
muß eserst einmal verkürzt wer- 
den. Dies ist durch Entfernen 
der vielen Kommentartexte 
auch leicht möglich. Wer schon 
beim Eintippen des Programms 
die Kommentartexte weggelas- 
sen hat, spart sich natürlich jetzt 
diese Arbeit. 

Zum Entfernen von REM-Zei- 
len gibt eszwar gute und schnel- 
le Tools, diese sind aber für den 
Sound-Editor leider nicht geeig- 
net, da die REM-Zeilen auch als 
Sprungziele auftreten. Dabei 
werden die Zeilennummern der 
Sprungziele meistens aus einer 
Tabelle entnommen. 
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Der »REM-Text-Killer« aus Li- 
sting 1 entfernt lediglich Kom- 
mentartexte und läßt dabei die 
Zeilennummern mit leeren 
REM-Anweisungen stehen. Das 
kurze Programm muß zum 
Sound-Editor eingetippt wer- 
den. Zeile 0 des Sound-Editors 
muß gelöscht werden. Anschlie- 
ßend gibt man POKE 253: 
POKE 254,8 (RETURN) im Di- 
rektmodus ein und startet den 
REM-Text-Killer mit RUN. Dann 
wird der REM -Text-Killer wieder 
gelöscht und Zeile 0 wieder ein- 
gegeben. 

Nun kann Listing 2 (Sound. ed. 
Erg.) eingegeben werden. Li- 
sting 2 enthält sowohl Zeilen, die 
im alten Sound Editor geändert 


werden müssen, als auchsaesm 


hinzukommende Programmtei- 
le, »Sound. Ed. Erg.« ist für sich 
allein aber kein lauffähiges Pro- 
gramm. Beim Eintippen kann 
man natürlich die Kommentar- 
texte gleich weglassen. Das ent- 
stehende Komplettprogramm 
sollte man dann sofort auf Disk 
speichern. Es kann getestet wer- 
den, wenn alle Maschinenpro- 
gramme und ein Musikdatensatz 
zur Verfügung stehen. 

An Maschinenprogrammen 
werden nachgeladen: 
MODULATOR 
SEQUENCER.OBJ 
SEQ.ERGOBJ 

Bei dem letzten Programm 
handelt es sich um eine Ergän- 
zung zum Sequenzer aus Teil 9. 
Diese Ergänzung, die mit dem 
MSE eingegeben werden muß 
(Listing 3), ıst für den Betrieb zu- 
sammen mit dem Sound-Editor 
und mit »Modulator« erforder- 
lich. Die technischen Einzelhei- 
ten wurden bereits in Teil 9 be- 
handelt und sollen hier nicht 
mehr besprochen werden. 

Um das bis jetzt aufgebaute 
System von Programmen zu te- 
sten, kann man den kleinen Mu- 
sikdatensätz »Test.Song« (Tonlei- 
ter und Kadenz) aus MSE-Listing 
4 verwenden. 

Bedienung des Sequenzers 

Der erweiterte Sound-Editor 
wird geladen und gestartet. 
Nach einer Initialisierungszeit 
von zirka 30 Sekunden meldeter 
sıch mit dem Hauptmenü, von 


dem aus man mit »Ä« den Se- 
quenzer erreichen kann. Para- 
meter werden mit den Cursorta- 
sten angewählt und können mit 
den F-Tasten verändert werden. 
Solange allerdings kein Song (= 
Musikdatensatz) geladen wor- 
den ist, was in der Titelzeile an- 
gezeigt wird, kann der Sequen- 
zer nicht gestartet werden. 

Im Untermenü Disk (mit »D« zu 
erreichen) kann man mit »F%« 
den Musikdatensatz »Test.Song« 
laden und gelangt dann automa- 
tisch wieder in das Sequenzer- 
Untermenü. Der Sequenzer 
kann jetzt mit »F5« gestartet und 
mit »F3« wieder angehalten wer- 
den. »Fl« setztihn an den Anfang 
des geladenen Songs zurück. 


TEMPO 

Uber das Tempo-Feld kann 
man die Abspielgeschwindig- 
keit im Bereich von 40 bis 480 
bpm (beats per minute) einstel- 
len. Geschwindigkeiten über 
300 bpm sind allerdings musika- 
lisch kaum noch sinnvoll, son- 
dern eher für Klangexperimen- 
te gedacht. 


MODUS 

Im Song-Modus wird das gan- 
ze Stück gemäß Sequenzfolgeli- 
ste gespielt. Der Sequenz-Mo- 
dus ermöglicht es dagegen, ein- 
zelne Sequenzen beliebig oft zu 
hören. 


SEQNR 

AH ocus erscheint 
nr je Nummer der gespielten 
Sequenz. Damit ist die aktuelle 
Position in der Sequenzfolgeliste 
gemeint und nicht die Nummer 
der Sequenz beiihrer Definition. 
Es kann also unter verschiede- 
nen Nummern die gleiche Se- 
quenz mehrmals zu hören sein. 
So besteht zum Beispiel 
»Test.Song« aus zwei verschiede- 
nen Sequenzen, einer Tonleiter 
und einer Kadenz. Die Tonleiter 
wird wiederholt und ist unter 
den Sequenznummern 1 und 2 
zu hören. Die Kadenz ist unter 
Nummer 3 zu finden. Im Song- 
Modus hat das SEQONR-Feld kei- 
ne Bedeutung. 
SOFT-EG 

Die Funktion entspricht der 
schon bekannten, mit Shift- 
Space erreichbaren Kopplung 
des Soft-EG an das Tastenfeld- 
Spiel. 
SUSTAIN 

Die Sustain-Funktion ist auch 
beim Sequenzer wirksam. Sie 
verhindert das Rücksetzen der 
GATE-Bits der drei Stimmen. Da- 
durch klingen die Töne ohne 
Lautstärke-Dynamik durchge- 
hend auf dem Sustain-Pegel. 
Während der Sequenzer läuft, 
bleiben alle anderen Funktio- 
nen des Sound-Editors voll er- 
halten. Man kann also an einem 
laufenden Musikstück Änderun- 
gen an der Klangeinstellung te- 
sten. Lediglich bei Disketten- 
operationen wird der Sequen- 
zer unterbrochen. 


Mit dem Sequenzgenerator 
(Listing 5) kann man relativ ein- 
fach Song-Dateien erzeugen, 
die die für den Sequenzer erfor- 
derliche Struktur haben. Das 
Programm erzeugt aus einer in 
DATA-Zeilen abgelegten Folge 
von Noten einen Datensatz mit 
der in Folge 9 beschriebenen 


'Zeigerstruktur. Die Daten wer- 


den direkthinter die Soundpara- 
meter ($9000 bis $9A07) also ab 
$9A08 gespeichert. Das ge- 
schieht in der Reihenfolge: 

— Zeiger auf Sequenzfolgeliste 
— Eine oder mehrere Sequen- 
zen, bestehend aus jeweils 1 bis 
3 Tracks 

— Sequenzfolgeliste (sie enthält 
die Startadressen der Sequen- 
zenin der Reihenfolge, in der sie 
abgespielt werden sollen). 

Es steht der Speicherbereich 
bis $BFFF, also auch der RAM- 
Bereich $A0000 bis $BFFF unter 
dem Basic-ROM zur Verfügung. 
Da sich POKE-Befehle immer 
auf das RAM beziehen, sind da- 
zu keine weiteren Maßnahmen 
notwendig. Programmteile, die 
auf diesen Bereich lesend zu- 
greifen, sorgen selbständig für 
das erforderliche Umschalten 
zwischen RAM und ROM. Auf 
Editierfunktionen wurde bei 
diesem Programm verzichtet. 
Da die Noten in DATA-Zeilen ge- 
schrieben werden, kann man 
diese wie Basic-Programme mit 
dem Bildschirm-Editor behan- 
deln. 

Syntax der Notendaten 

Ein Song ist in einzelne Se- 
quenzen gegliedert, welche 
wiederum in bis zu drei Tracks 
(= Tonspuren) zerfallen. Den 
Aufbau macht man sich am be- 
sten anhand von Listing 5, Zeilen 
8000-8820, klar. Dort steht das 
schon in Teil 9als Hex-Dump ab- 
gedruckte Musikstück. Jenes ist 
allerdings für den Sequenzer in 
der jetzigen Form nicht weiter 
verwendbar, da esnicht im Spei- 
cherbereich ab $9A08 liegt. Die 
Zeilen 8100 bis 8130 beschreiben 
eine Sequenz, in der nur Stimme 
3 programmiert wird. Der Track 
besteht dabei aus sieben Vier- 
telnoten. 

Sequenzen müssen mit SE- 
QUENZ, (laufende Nummer) 
eingeleitet werden. Die laufen- 
de Nummer muß im Bereich 1 
bis 200 liegen. 

Innerhalb einer Sequenz wird 
mit TRACK, (1, 2 oder 3) angege- 
ben, welcher Stimme die nach- 
folgenden Noten zuzuordnen 
sind. Man kann in einer Sequenz 
auch weniger als drei Tracks 
programmieren. Allen nicht pro- 
grammierten Tracks ordnet das 
Generatorprogramm einen 4 By- 
te langen Dummy-Track zu, der 
nur aus einer Pause besteht und 
der nur einmal im Speicher ste- 
hen muß. 

Innerhalb eines Tracks sind 
dann folgende Daten zulässig: a 
— b stellt das Verhältnis zwi- 
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OFF-Zeit ein. Voreinstellung ist muß einmal vorhanden sein. Sie ISA Se sun Er 
x 75324 SYS PR,6,7,F1%; "SONG {3ZSPACE H_ADEN" <156> 
-1, das heißt, beide Zeiten sind stellt die schon erwähnte Se- 7632 SYS S2198:60SUB ?2148:REM MOD/SER AUS <B69> 
gleichlang. Bei l-Ohatdie GATE- quenzfolgeliste dar, von der die 7&E70 NS=-12a=211 RR <022> 
ON-Zeit die maximale Länge, Abspielreihenfolge der Se- 7675 SYS DO,56326 , INT (6£7/ (24xTE)) <222> 
bei 0-] werden die Noten nur quenzen gesteuert wird. Die Se- 7688 IF SR THEN SYS 51095:G60T0 1558 <187> 
sehr kurz angeschlagen. Die quenzen nl, n2 und so weiter 7485 SYS MO+1232:60T0 1558 <189> 
Einstellung hat keinen Einfluß auf müssen natürlich definiert wer- 7735 SYS 52198:50SUB Z14Q:REM MOD/SEB AUS <174> 
die Gesamtlänge der Noten. den. Die Liste wird mit einer 0 7e0u5 SYS D0,56326 „INT (6E7/ (24«TE)) <298> 
Diese wird mit a / b eingestellt. abgeschlossen. 7818 IF SR THEN SYS 51893: RETURN <098> 
Beispiele sind: ENDE schließt den Datensatz 7815 SYS 5B185:RETURN:REM NUR MOD. AN <183> 
1/l ganze Note ab. er Fair er 
1/2 halbe Note Das Generatorprogramm An a EADEN 2 = Earl 
3 SYS FR,&6,7,F2#; "SONG {3SSPACE+LADEN <B30> 
1/4 Viertelnote weist fehlerhafte Daten mit Feh- 7915 SYS FR.10.4.F1$:"DATEINAME ": <038> 
: : .. Bl 52.2 Bus, ’ ’ 
1/6 Vierteltriole lermeldungen zurück. Am Ende 7920 SYS PR,18,14,;: INPUT DN$ <a008> 
3/8 punktierte Viertelnote eines Generatorlaufs kann man 7925 SYS 52944: BDSUB ?148 £@21> 
1/8 Achtelnote den erzeugten Datensatz spei- 7938 OFEN 8,8,8,DN$+" ,P,R":CLOSE 8 <206 > 
1/12 Achteltriole chern. Dieser kann dann direkt 7935 OFEN 1,8,15:INFUT#1,A,A$,X,Y:ELOSE 1 <B97> 
Die Längenangabe bezieht vom erweiterten Sound-Editor 7948 SYS FR,12,4,"{29SPACE}" <196> 
sich auf alle Noten bis zur näch- geladen werden. 945 IF A=2 THEN 7955 <171> 
sten Längenangabe. Mit der Integration des Se- Zum BIS rl Z SBSEREN VERNTO DIE <061> 
Als Notennamen werden die dquenzers in den Sound-Editor Rs I Auch ae Au m See 
üblichen Bezeichnungen GDE, findet dieser Kurs seinen Ab- ee a h A “ a Fe ee abe 2 
FGA,H verwendet. Die Noten- schluß. Dem an Computermusik 7970 SYS D0,54326 , INT (6E7/ (24xTE)) <a09> 
namen können mit»#«(zum Bei- interessierten Anwender stehen 73975 SYS DO,50318,USR (39432) 2DAD> 
spiel F# =Fis) zur Erhöhung um nun leistungsfähige Programme 7922 SYS Sımfil :REM SED/MOD START/INIT <162> 
einen Halbton oder mit»B« (zum zum Experimentieren und zur 7985 IF NOT SR THEN SYS 509644 2038: 
Beispiel EB=Es) zur Erniedri- Realisierung seiner Ideen zur 7998 A=65:60T9 1558 “889 > 
gung um einen Halbton ergänzt Verfügung. Der erfahrene Pro- 8138 ON L 50TO 8159,87220,8288,83190,8318 <122> 
werden. Die Notennamen müs- grammierer wird vielleicht das SsıeR FOR I=B TO 8:VACI,A)=ZN:NEXT <072> 
sen mit einer Oktavnummer zwi- eine oder andere hier veröffent- rn EEE SINE *027> 
schenOund6versehensein.Der lichte Programm seinen Bedürf- u ee TR na . 
2 - . sr I ” m. jun | "+ PP) a £ 
Kammerton a mit 440 Hz hat in nissen anpassen können. Über 8627 FOKE 503953,0 REM EG ABKOPPELIN{SED) 0663 
dieser Schreibweise den Na- eineResonanzvon seiten der Le- 3432 TE-122 :REM TEMPO £239> 
men AS. ser zum Beispiel in Form von | 9929 50-8: S1=-@:SR-B:A=2:RETURN <108> 
P kennzeichnet eine Pause, für Sound- oder Song-Dateien oder 9530 DATA MA,3720,160,3808,5,797902,A 2130 
die ebenfalls die Längeneinstel- Ideenzur Erweiterung oder Ver- 97758 DATA M7,7688,133,77020,134,77@0,137 <079> 
lung a/b gilt. besserung der Programme wür- 7802 DATA M8,194289,229,12458,157 <141> 
SEQUENZFOLGE, nl, n2, desich der Autor freuen. 10002 REM============2=======2=====5555555 “026> 
' Ätzi 12012 REM UNTERMENUE SEQUENCER <121> 
n3,...,0. Diese Anweisung darfan (Thomas Krätzig/tr) „|. Bee er en mueine 13 Ser 
10230 M=8:PV=2:SYS CL:PRINT" {HOME ,DOWN}"”:F 
123 -2B5> 
AD=PEEK (253) +256*PEEK (754) 1224Q PRINT" SEBUENCER"; “83977 
LL=PEEK (AD) :LH=PEEK (AD+1) 129045 IF NOT S@ THEN PRINT" {2SPACE}(KEIN S 
FOKE 253,LL:POKE 254,LH ONG VORHANDEN) " <121> 
AD=LL+256%*_H 12050 SYS FR,4,12,"TEMFO MODUS SEONR {2SPAC 
LL=PEEK (AD) :LLH=PEEK (AD+1) E}SOFT-EG" “034 > 
IF LL=B AND LH=® THEN END 1B06B SYS FR,S,4, "AELCCCRCLECCRELLCERELELER 
IF FEEK(AD+4)<>143 THEN 17 ECEEELEEES" <175} 
ZN=PEEK (AD+2) +?56#PEEK (AD+3) 10070 SYS FR,6,4," BIASPACE}YB{SSFACE}BISSPA 
PRINT CHR$ (145) 5; ZN: CHR$(157)3;" REM" CEIBISSPACEHRB 112SPACEIZ{2SPACEISE B" <069> 
PRINT " RUN{A4SPACE}" 10080 SYS FPR,7,4,"FELLLFECCCCFLLCECFECLEEF 
POKE 631,145:POKE 632,145 ELEECEEECR" <199 > 
POKE 633,145:POKE 634,145 1207D SYS FR,F,1,F2%; "Fi"; F1$; " {2SPACE}RES 
POKE 435,13 :POKE 636,13 ET {2SPACE}I++{18SPACE}L" <211> 
POKE 198,6 1210@ SYS PR,1i0,1,F2$5 "F3";Fi1$; " {2SPALEIST 
END OP {4SPACE }+ {2SPACE SONG {4SPACE }+ {7SP 
ACEYIZ2" | <178> 
12110 SYS FR,11,1,F2$; "F5";F1$3 " {2SPACE>RU 
Listing 1. »REM-TEXT-KILLER«. Bitte mit dem Checksummer (Seite N<SSPACEI- 2SPACEISED {SSPACEI-7SPAC 
54) eingeben. Beachten Sie auch die Bedienungshinweise im Text. EIS" <106> 
1812@ SYS FR,12,1,F2#; "F7";Fi1$; " (ISPACEI-——- 
Ä " £093> 
12138 IF SR THEN 10158 <128> 
Er ! rk, 10140 SYS PR,6,5,"STOF":GOTO 10168 <172> 
1082 IF A=B THEN A=.1:LOAD"MODULATOR",„8,i <929> 10150 SYS PR.& S."RUN " <138> 
1Be2 IF A=.1 THEN A=.2:LOAD"SEQUENCER. OBJ" 1D160 SYS PR.&.11.RIGHT$ STR&(TE).S) £152> 
a7, “e15> 10170 IF SM THEN 10198 = <095> 
een ee MEN Br 1 LBADSSERTERG. DEI" SO BEER 1D180 SYS FR,&,16,"SONG":GOTO 19218 <255> 
ae I ke a *255> ae 2: a "4STRE (SE) „3 . 
ee Se SBIFS4+5N,C(SN) a BHO REM 2110> 
7405 REM TEMPO <235> LESBEN ENTE FR; ee 
Z412 IF FW<i4@ THEN PW=42 “174> UBEABETE RR 
3415 IF PW>488 THEN FW=488 <B78> ” * 4 u ; 
3422 TE=PW:SYS DO,FA,INT(6E7/ (24*TE)) <a25> ie ee a an en 218972» 
3425 SYS FR,6,11,F2$; RIGHT$ (STR (PW) ‚3) <2Q4 > 10250 IF X AND 4 THEN SYS PR.&.34."fRUSON. — 
NG *186> SPACEIZ " Ra A " 2197; 
Be ee Be op 10300 AV=10500:5YS GS,AV: RETURN <a51> 
4132 SYS FR,13 ing <e z" ae . A - 
Denen RT RRSERGEIAÖEFIRET SER, | Listing 2. »SOUND.ED.ZUSATZ«. Bitte mit dem Checksummer ein- 
7427 ı FOKE SO334+1,C(TD) <207> geben. Beachten Sie auch die Bedienungshinweise im Text. 
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12428 
iz410 
19422 
123450 
13449 
134502 
19468 
19478 
10458 
12520 
19518 
1852 

123538 
125482 
12:80 
12518 
12529 
19538 
19542 
19550 
12728 
13718 
19728 
13730 
18740 
13758 
13322 
13318 
12328 
19838 
12949 
12858 
13782 
199712 
1397280 
129730 
19740 
11220 
11918 
11215 
11822 
119380 
11242 
11842 
11845 
11252 
11855 
112360 
119885 
11270 
11975 
11288 
11885 
11978 
11128 
11118 
11312 
11115 
11128 
11125 
11132 
11155 
11140 
11145 
11158 
11155 
111688 
11185 
11172 


11175 
112288 
11212 
1122 

11258 
11248 
11258 
11250 
11278 
i11>288 
11255 


11298 
11388 
11318 
11328 
113358 


REM FARAMETERWAHL DURCH CURSOR 
REM RECHTS 


AV=SAV+1RB: IF AV>1BFROQ THEN AV=19502 


GOTO 18478 
REM LINES 


AV=AV-100: IF AVY{IBSRORB THEN AV=12rB20 


FOR I=FB TO PE+8:FOKE I,Fi:NEXT 
SYS 6T,AV 


REM RUN/STOF WAEHLEN 

FB=FA+245 

FOR I=PB TO FB+3:POKE I,F2:NEXT 
PA=CI+12:PV=11@@B: RETURN 


REM TEMFO WAEHLEN 

PB=FA+250 

FOR I=FBE TO FE+Z:FOKE I,F2:NEXT 
PA=LCI+&ä:PW=TE 


FM=-598: Fi=1:F2=18: PV=3498: RETURN 


REM MODUS WAEHLEN 

FE=FA+256 

FOR I=FB TO FB+3:FOKE I,FZ=NEXT 
PA=59345: FW=FEEE (FA) 

FV=111BB: RETURN 


REM SEQ@NR WAEHLEN 

PB=FA+282 

FOR I=FRE TO FB+2:FOKE I,FZ:NEXT 
PW=SE:Fi=1:P2=1:FM=1900 
FV=1172R2: RETURN 


REM SOFT-EG WAEHLEN 

FE=FAr259 

FOR I=FR TO FB+8:FOKE I„F2:2NEXT 
PA=52393:PV=1130B: RETURN 


REM SEQUENCER RESET/STOF/RUN 

IF NCT S@ THEN RETURN 

IF A<133 OR A>135 THEN RETURN 
ON A-1322 GOTO 11949,118583,112088 
REM RESET 

IF SM THEN SYS S111&:RETURN 
SYS 51821 

IF NOT SR THEN SYS 59976 
RETURN 

REM STOF 

SYS 59984:5YS FR,6,5,F2F; "STOP" 
SR=@B: IF NOT SU THEN 2148 
RETURN 

REM RUN 

SYS 51893:5YS FR,6,0,F2$; "RUN ” 
SR=-1:RETURN 


REM SEBUENCER-MODUS (SONG/SER) 
IF NOT SQ THEN RETURN 

IF A=124 THEN 11138 

IF 4=135 THEN 11158 

RETURN 

REM SONG-MODUS 

SM=Bß :FOEE FA, 

SYS FR,6,16,F2#; "SONG" 

SYS PR,6,22," {5SPACE}": RETURN 
REM SEQUENZ-MODUS 


SM=-1:FOKE PA,1:SYS PR,6,16,"SEQ 


SYS FR,&4,16,F2$; "SED " 
SE= (USR (50317) -USR (50310) ) /5+1 


SYS FR,4,22,F1#;RIGHT$(" "+STR$(SE), 


=) 


RETURN 


REM SEQUENZ-NUMMER 

IF NOT SM THEN RETURN 

IF Fw=2 THEN PW=1:RETURN 
AD=USR {52B351B) +tFW-1)%*5 


IF USR{(AD)=B THEN FW=FW-1: RETURN 


SYS D0,58312,AD:SE=FW 
SYS D0,52314,USR (AD) 
SYS 5111& :REM NEXTSE®O 


SYS FR,6,22,F2%;RIGHT$(" "+STR$ (SE), 


>) 


RETURN 


REM SEQUENCER SOFT-EG-STEUERUNG 
Xx=FEEK (FA) 
FOR I=8 TO 2 
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<B16> 
=198> 
«B31> 
<B95> 
BIS, 
“154> 
“@814> 
£1.23> 
20575 
x118> 
<132> 
<195> 
21497} 
„172> 
<218> 
ut 9 a 
B21> 
249} 
219} 
<B12> 
982} 
<121?7 
x145> 
«ar737 
DZ: 
<1B8> 
<164> 
2287? 
“2.3852 
1877? 
zB54> 
B75> 
2087 
<>PB3> 
<121> 
B79> 
„124% 
<108> 
‘231? 
<B95> 
234 > 
<187> 
iS 3. m. 
< 1 z 
<@91> 
<255> 
<191> 
<164> 
<B98} 
x9&9 > 
2112 
148> 
165> 
<B> 
218} 
<185> 
TII2> 
171 7 
100} 
<B95> 
<167> 
8257 
xz174> 
1392 
2D5> 


P- kr hr Be 
. nn 


“111> 
„186> 


168> 
B55> 
«954> 
<218> 
1712 
0853> 
8097: 
<167> 
<002> 
x185> 
<189> 


B45> 
“1727 
<156> 
B66> 
148> 
<B975> 


11348 
11358 
11360 
11578 
1138B 


113978 
11400 
11418 


11428 


8 Et’er 


FROGRAMM : SEQ.ERG.OBJ 


i 


1168 
1178 


DIM SA(288) :REM SEQUENZADRESSENL. 
1192 DIM TA(>) 
1198 REM NOTENNAMEN 
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IF AX>133+1 THEN 11428 
yY=211 

IF (X AND Y) THEN 11408 

X=X OR Y:FOKE FA,X 

SYS PR,6,28+35#1,F2#; " {RVSON}"; I+1; 
"{LEFT,SPACE}" 

GOTO 11420 

x=X AND (?55-Y):POKE PA,X 

SYS FR,6,28+3#1,F2$; It1: " {LEFT,SPA 
cE>" 

NEXT I:RETURN 


Listing 2. Schluß 


C737 6855 


snwoonnn0npDpwurn9n- 9 oO ru nDpd"-nmN 


USPBPOOSUPODOUMDBPODOSUTTNMNPSNINACSOIMIDSUDN 


Listing 3. »SEQ. 
ERG.OBJ«. Bitte mit 
dem MSE (Seite 54) 

eingeben. 


DONNDNDSLOASE 


»TEST.SONG«. 
Bitte mit dem 
MSE (Seite 54) 


eingeben. 


SF (2282) SEQUENZFOLGELISTE <159> 
B22> 
818: 


gr Na 
.185> 


:REM TRACKABRESSEN 


1228 NNE="CIDDEFFGEGAAH" -1971> 


1219 DNF="" 
1228 5=1 

1238 T=1 

1248 AD=2 

1259 SA=37432 
12658 G=?7&% 

1272 R=2.5 

1262 NL=1/4 
1270 L=8 

1322 SV=12+4295 


1508 


:REM DATEINAME 

:REM AFTUELLE SEQUENZ 
:REM AKTUELLER TRACK 
:REM ALLG. ADRESSE 
:REM F7AB8S 

«REM QBUANTISIERUNGS 
:REM GATE DN/LAENGE 

: REM NOTENLAENGE 

:REM STRINSLAENGE 
:REM SAVE-ROUTINE 


<Q&4" 
<217>2 
x157> 
<117?> 
B62> 
2248} 
<178> 
<E71R 
<®31> 
214 > 
<B976&6> 


Listing 5. »SEQUENZGENERATOR«. Bitte mit dem Checksummer 
(Seite 54) eingeben. 
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1518 REM FROSRAMMSTART <2141> 3300 F$="GATE-OFF-ZEIT ZU GROSS" <185> 
152B REM-------- nn. -- - - - 7 <116> 3318 GOTO 5288 <2354> 
1538 REM SAVE-MASCHINENFROGRAMM 2187: 33528 FOKE AD,AN:AD=AD+1 <248> 
1548 FOR I=8 TO 17 <137> 3338 FOKE AD,OF+97:AD=AD+1 <B81 > 
1558 READ X:FOKE SV+I1,X:NEXT I <129}> 3348 GOTO 2118 <B34 > 
2822 REM 248} SAHED. RE Mio essen gerri nem ee <220> 
=28B3B REM DUMMY-TRACK ERZEUGEN < 248 > 3418 REM VERHAELTNIS GATE-ON/GESAMTZEIT <120> 
2848 AD=S5A+2 «153> 3428 REM (Z/N = GATE DN/GATE-OFF) <1053> 
2858 POKE AD „i :POKE AD+1,97 1727 3438 REM------—--—- en <250> 
2248 FOKE AD+2,239:FOKE AD+3,8 <294 > 3448 R=Z/(Z+N):GOTOD 2118 <166> 
208728 HB=INT {AD/254) :LB=AD-254*HQ <191> Er REIT ——— <166> 
ZB88 AD=AD+4: AF="" <215> 36180 REM SEQBUENZFOLGE <B21> 
2100 REM NAECHSTES DATUM LESEN <B42> en A ent <1B6> 
Z118 PRINT" ";Af;:READ A# <>2B1: 3638 PRINT:PRINT:AS=® <198> 
2128 L=LEN(AF):L#=LEFT$(AF,1) “939 > 36548 PRINT" ";sAt;:READ Af:A=INT (VAL (Af)) <146> 
?158 IF At="p" THEN 31898 <197> 3658 IF A=B THEN 3470 REISE 
z216R IF Ar="FAUSE" THEN 31828 <108* Su6buD SF(AS)=A:AS=AS+1:G0OTO 3448 <a@1> 
2165 IF AF="TRACK" THEN 3800 “208 > 3678 IF At<>"®" THEN 3690 x032> 
?178 IF At="SEQUENZ" THEN 40209 <BB0 > =&B8 FRINT" B":READ At: G0OTD 2128 <a5S5> 
2175 IF Aft="SEQUENZFOLGE" THEN 34008 <@18> 3698 F$="LISTE MUSS MIT BD ABGESCHLOSSEN SE 
2198 IF Af="ENDE" THEN 4309 «168: IN" <153 
Z7B8 REM <230> 3782 GOTO 5208 <116> 
2218 REM NACH NOTENNAMEN SLICHEN <184 > Sa REM <118> 
222B REM <258> 381@ REM TRACK <16B> 
2238 IF L=1 THEN 5290 <122> ER NE FRETT run <150> 
2248 IF L>3 THEN 2588 856 > =838 FRINT:FPRINT:FRINT A$; <28i > 
2258 N=1 <187> =8480 READ Af:A=INT (VAL (A?F)) <075> 
22688 IF LF=MID#(NN$,N,1) THEN 7398 <B81> 38528 IF A>=1 AND Ai=53 THEN 3888 <857> 
2278 N=N+1: IF N{Z13 THEN Z748 <B&42> 3968 F#="NUR 1,2,2> ZULAESSIG" <a58> 
2288 GOTO 2588 :REM KEINE NOTE 2989 °> 878 GOTO SaR2 <032> 
2388 RF=RIGHT$(AF,1) :0=VAL (RE) 2204: =>888 FRINT A:T=A <B47> 
231@ IF 0O=8 AND R#<>"B" THEN 24208 <BR8: =898 IF NS THEN NS=2B:G0TDO 3918 <B889> 
2328 IF O>&4 THEN 2428 <B05 > 39B2 FOKE AD,B:AD=AD+1 <954> 
2358 IF L=2 THEN 30008 <255> 3918 HI=INT (AD/256) :LO=AD-2564*HI <B74> 
2348 M#=MID#F(A+,2,1) Int: > 3928 POKE SA(SI+(T-1)*2,L0O <B12> 
2358 IF Mf="#" THEN N=N+1:60T0 3908 SIE > s930 FOEE SA(SI+(T-1)*#2+1,HI <167?> 
2358 IF M+="B" THEN N=N-1:60T0 32898 <B87> 3948 READ Aft:50T0 2128 <B83> 
2388 F£="NUR "+LFH"#"+R$+" ODER "+L++"B"+R 48938 REM-----------—--—-- - - - - - - - - —- - - -- - —— <B56> 
$ <B597> 4B10 REM SEQUENZ <B253> 
2598 Ft=Ff+" ODER "+LF++RFf+" MOEGLICH" <B85> 4828 REM----------—- -—-------- - - - - - - - - - - - <B768> 
2402 GOTO 52908 xB8&4> 42022 FRINT:FRINT=FRINT:FRINT Af; <258> 
2428 F£="OKTAVBEREICH B-&4" <xQB3B> 43848 READ Af:A=INT (VAL(AF)) <B197> 
2438 GOTO 52008 Gaecal aan Ta IF A>=1 AND A<=228 THEN AB80 <“Q45> 
2508 REM <B28> 4BdaR Ft="NUR 1-2028 ZULAESSIG" <223> 
2518 REM NACH / ODER — SUCHEN <112> 4278 GOTO SRBR “27327 
2528 REM <Q48 > 4232 FRINT A:5=A 2137 
2558 M$=MIDF(AF,2Z,1) <B85> 4272 FOKE AD,B: AD=AD+1:NS=-1:5A(SI=AD <157> 
2542 IF MF<>"/" AND M$<>"-" THEN 2568 <B7&6> 4120 REM TRACE-ZEIGER AUF DUMMY-TRÄACK <B38> 
2558 RF=RIGHTE (A#,L-2):60T0 2592 <803> 4118 REM INITIALISIEREN “212> 
2568 M+F=MIDF(AF,S,1) <121> 4128 FOKE AD „LQ@:POKE AD+1,H8 <B83> 
2578 IF Mt<>"/" AND M$<>"-" THEN 5200 <136> 41308 FOKE AD+2,L9:FOKE AD+3,H® <144> 
2588 LF=LEFTF(AF,2) eRF=RIGHTF (AF,L-3) <122> 4148 FOKE AD+4,1L9:FOEE AD+5,H2 <B28> 
2&208 REM 1227 4158 AD=-AD+& <198> 
2618 REM ZAEHLER UND NENNER UNTERSUCHEN “iadr 41508 READ At:GOTO 2128 <225> 
262B REM 1427 3B8 REM-------—-—-—--——- ----- -- - - - - -. <192> 
aus38 Z=VAL(LF+) <a07> 43108 REM ENDE <B27> 
2648 IF Z>@B AND Z<99 THEN 2478 <177> 4328 REM SEQUENZFOLGELISTE AUFBAUEN <@81 > 
2658 F£="ZAEHLER-BEREICH 1 BIS 99" <B44> 4338 REM-------------- --- -- - - - - 0.0. <132> 
2668 GOTO SRBR <B972> 4248 FRINT:FRINT Af <Q21> 
2678 N=VAL(R#) <128> 43580 FCKE AD,B:AD=AD+1 <258> 
2688 IF N>@ OR M$="-" THEN 7718 -103> 4368 HI=INT {AD/256) :LO=AD-256%*HI <B1&6> 
2598 F#="NENNER MUSS GROESSER B SEIN" <208> 4272@8 FOEE SA,LO:FOKE SA+1,HlI <135> 
2708 GOTO 5208 <132> 4388 FOR I=8 TO AS-1 <246> 
2718 IF M£="/" THEN 329898 :REM ZEIT <Z2B8> 43908 = X=SAtSF{I))=: IF X>@ THEN 4418 <163> 
2728 IF M£="-" THEN 3488 :REM ON/OFF EIF > 4488 : FRINT"SEQUENZ"; I; "NICHT DEFINIERT": 
27328 GOTO 5900 <1&2> GOTO 4428 <177> 
SBua8 REM------------- - - — — — - — - - - <B72> 4418 : HI=INT (X/256) :1LO=-X-256%Hl <B73> 
S@12@ REM NOTE (TONNUMMER N OEKTAVE 0) 197> 4420 : FOKE AD+3*I1,LO <245> 
382B REM----------- -—- - -—-- - - - oe. 092> 2438 =: FOKE AD+3#I+1,HlI <129> 
S@358@ IF N=@B THEN N=12:0=>0-1 <TI37> 4440 : FOEFE AD+2#1+2,8 <B&2> 
sB4B IF N=13 THEN N=1 :0=0+1 <113> 4458 NEXT I <216> 
SsaS52 FOKE AD,128+164*0+N-1:AD=AD+1 <B51> 4458 FOR I=B TO 2:FOKE AD+3+AS+I,B=:NEXT <212> 
3848 GOTO 2112 <B094 > 4478 AD=AD+T+AS+IF <179> 
3188 REM -——— ——- + oe <174> 450089 REM <244> 
>118 REM PAUSE <Ba5Q> 4518 REM BEREICH SA-AD AUF DISK <882> 
s128 REN x1974> 4522 REM <298> 
Ss1S5B FOKE AD,„239:AD=SAD+1:60T0 2118 “2147 4538 INFUT"AESFEICHERN (J/N) "sA# <211> 
s288 REM------------------ -- - - -- - --. -. . . “2B18> 45408 IF AtZ{>"J" THEN END <123> 
s218 REM ZEIT (NOTENDAUER)} <178> 4558 INFUT"DATEINAME {9SFACE}" ; DN# <164> 
Be BREMST en 038> 45608 AH=INT (5A/256) » AL=SA-2565%*AH <9079> 
3238 T=INT (Q0*7Z/N) :REM GESAMTZEIT <B897 > 4578 EH=INT (AD/256) »EL=AD-?564*ENH <Q&u1> 
3248 AN=INT (R*Q#*Z/N):REM GATE-ON-ZEIT <B99> 4588 DPEN 1,8,1,DN# <135> 
325B DF=T-AN :REM GATE-OFF-ZEIT <B973> 45978 FOKE 252,AL:FOKE 253,AH <158> 
Ss268 IF ANZ=?& THEN 3270 841> 4600 FORE 798,252 7.1178 
3278 Ft="SGATE-ON-ZEIT ZU GROSS" <154> 4518 FOKE 781,EL:FOKE 782,EH <B40> 
3288 GOTO 52088 “204 > 4628 SYS SV:CLOSE 1 «176> 
3298 IF OF“=38 THEN 3328 <198B> 46308 END <B> 
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FRINT:FRINT 

PRINT"FEHLERHAFTES DATUM: ";A#F 
IF FF<s>"" THEN PRINT F# 

PRINT: A$="":F#="":6G0OTO 2112 


DATA 872,165,221 ,241,254,133,081 
DATA 184,08532,216,255,165,981,089 
DATA 281,133,021,09& 


REM MUSIKSTUECK 
REM (EDVARD GRIEG EOBOLD) 
DATA SEQUENZ,1 

DATA TRACK,Z 

DATA 1-1,1/4,EB1,HB1,EB1,HB® 
DATA EB1,HBi,EEB1 

REM 

DATA SEQUENZ,2 

DATA TRACK,1 

DATA 1-9,1/4,P,1/8,HB3,3/8,P 
DATA 1/8,HB3,3/8,P,1-1,1/4 

DATA HB3,6B3,6B3,HB3,A3,F3,F3,A3 
DATA 17/2,A3,P,1-8 

DATA 1/8,EB4,3/8,P,1/8,EB4,3/8,P 
DATA 1-1,1/4,EB4,CB4,CB4,EB4 
DATA D4,HBS,HBS,D4,1-8,1/4,D4A 
DATA 1/2,P 

DATA TRACK,2 

DATA 1-0,1/8,EBS,FZ 

DATA GBS3,F3,EB3,F3,6B3,F3,EBS,F3 
DATA 1-1,1/4,6ES,EBZ,EB3,6B3 
DATA F3,C3,C3,F3,1/2,F3,1/4,P 
DATA 1-8,17/8,ABS,HBZ 

DATA CB4,HB3,AB3,HB3 

DATA CB4,HB3,AB3,HBS,1-1,1/4 
DATA CB4,AB3,ABS,CB4 ,HBS,F3,F3,HB3 
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<940> 
<140> 
<O60> 
<156> 
<023> 
<192> 
<151> 
<aa8> 
<2@2> 
<028> 
<25@> 
<191> 
<214> 
<248> 
<253> 
<@56> 
<022> 
<a58> 
<240> 
*171> 
<121> 
<072> 
<055> 
<145> 
<138> 
<a92> 
A, 
<236> 
<1@7> 
<130> 
<067> 
<098> 
<236> 
<174> 
<136> 
<173> 
<@84> 
<aa2> 
<137> 
<199> 
<132> 


Musik-Kurs 


1/2,HB3,1/4,P 
TRACK ,S3 
1-1,1/4,HBB,EB1,HB1,EB1 


SEBUENZ „3 
TRACK ‚1 

1-1,1/4,P 
DBS,F,DBS,F,ABA4,P,AB4,P 
6B4,F,6B4,P,DBA4,P,DB4 

TRACK ,2 

1-0,1/8 

GB4 „AB4 ,HB4 ,AB4,6B4,AB4,HB4,P 
DB4,EB4,F4,EB4,DBA,EB4,F4,P 
CB4,DB4,EB4,DE4,CB4,DB4,EB4,P 
GES,ABS,HBS,ABS,6GBZ,AB3,HBS,P 
TRACK ,3 

1-9,1/4,P,172 
GB3Z,P,DB3,P,CB3,P,6B2,1/4,P 


SEBUENZ „A 
TRACK ,1 
1-8,1/4,P,1/1,P,P,P,P,1/8 
HB1,F2,HB2,HB2,F3,HB3,HBS,F4 
1/4,HB4,3/4,P 

TRACK,2 
1-8,1/8,F2,6B2,AB2,6B2,F2,P 
GB?,F2,EB2,P,F?2,EB2,DB2,P 
EB2,DB2,C2,P,1/1,P,1/8 

EB? ,DB2,CB2,F,1/2,F 
1/1,F1,1/4,F4,37/4,F 

TRACK ,Z 
1-80,1/8,F1,5E1,AB1,6B1,F1,P 
GB1,F1,EB1,P,F1,EBi1,DB1,P 
EB1,DB1,C1,P,1/1,P,1/8 
EB1,DB1,CB1,F,1/2,P 
1/1,F@,1/4,F2,3/4,P 


SEQUENZFOLGE,1,2,2,3,3,4,8 
ENDE 


bier, il: 
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<1577 
<B81> 
<057> 
<B93> 
<B35> 
-1197> 
<Q&85> 
148> 
<178> 
<161> 
<B29> 
<x192> 
<2BB> 
144 
2254 > 
<162> 
<079> 
<1B5> 
<250> 
<@074> 
<2289> 
2287 
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Adventures, die keine sind 





dieser Seite vorstellen, haben 

drei Dinge gemeinsam: Sie ha- 
ben ein völlig neues Konzept, sind 
also auf ihre Art einmalig; beide las- 
sen sıch als Adventures der neuen 
schule bezeichnen; beide haben 
berühmte Vorbilder: ein Buch bezie- 
hungsweise eine Popgruppe. 

Bei »I'he Fourth Protocol« handelt 
es sich um ein Spiel nach dem 
gleichnamigen Buch von Frederick 
Forsyth. Zur Handlung: Durch einen 
Verräter innerhalb des britischen 
Geheimdienstes können geheime 
NATO-Akten in die Sowjetunion ge- 
langen. Über Umwege findet man 
einen wahrhaft teuflischen Plan eini- 
ger Russen heraus. Sie schmuggeln 
ın Einzelteilen eine kleine Atom- 
bombe nach England, die sie in der 
Nähe einer amerikanischen Luft- 
waffenbasis zünden wollen. Das 
Ganze soll als Unfall der Amerika- 
ner getarnt werden. Erstrebtes Ziel: 
Großbritannien soll aus der NATO 
austreten. 

Der Spieler übernimmt nuninden 
insgesamt drei Einzelspielen die 
Rolle des Agenten John Preston, der 
hinter dieses Komplott kommt und 
es verhindert. 

Im ersten Spielteil muß der Verrä- 


D le zweiSpiele, die wir Ihnen auf 
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Bei folgenden zwei Spie- 
len fällt die Einordnung 
schwer: Sind es Adven- 
tures, Strategie-Spiele, 
Adiion-Spiele oder ganz 
was anderes, Neues? 


ter ausfindig gemacht werden. Die 
Ermittlungen werden vom Spieler 
von seinem Büro aus geführt. Von 
dort aus kann er Akten anfordern, 
telefonieren, Überwachungen an- 
ordnen und vieles andere mehr. 

Der zweite Spielteil ist schon ak- 
tionsreicher. Die Bombe muß ausfin- 
dıg gemacht werden. Jetzt darf der 
Spieler auch vor Ort arbeiten. Per 
Taxı und U-Bahn oder zu Fuß durch- 
streift er London, auf der Suche 
nach Hinweisen. | 

Beide Teile sind symbolgesteuer- 
te Adventures. Auf dem Bildschirm 
befinde | SE Zeihe von Sym- 
bolen, V iegeie Aktionen 
repräsentieren. Mit einer Hand las- 
sen sıch diese anwählen. Meist öff- 
nen sıch dann mehrere Bildschirm- 
fenster, in denen sich Untermenüs 
befinden. Auch die Reaktionen wer- 
den in Fenstern mitgeteilt. 

Die Grafik dieser beiden Teile ist 
sehr detailliert, die Auflösung des C 
64 wird voll ausgenutzt. 

Was so gut anfing, endet katastro- 
phal: Im dritten Teil soll man die ge- 
fundene Bombe entschärfen. Hier 
wird man mit einem Text-Grafik- 
Adventure der miesesten Art kon- 
frontiert. Zum geringen Wortschatz 
und der plumpen Grafik kommt er- 
schwerend hinzu, daß man gleich- 
zeitig KGB-Agenten per joystickge- 
steuertem Fadenkreuz abschießen 
soll. Dieser Teil hat auch keinerlei 
Gemeinsamkeit mit der Buchvor- 
lage. 

Auf der ganzen Länge positiv ist 
hingegen »Frankie Goes to Holly- 
wood — Welcome tothe Pleasurega- 
me« zu sehen. »Frankie« zählt zum 
abwechslungsreichsten, das je den 
Computerschirm erblickt hat. Ziel 
des Spiels ist es, zum Pleasuredome 
zu gelangen. Auf dem Weg dorthin 
gıbt es derart viel zu erleben, daß 
wir es hier weder aufzählen können 
noch wollen. »Frankie« hat das Kon- 
zept des Spiels ım Spiel: Von der 








Hauptebene aus kann man In Unter- 
spiele gelangen, zum Beispiel ın- 
dem man in laufende Video-Clips 
oder Wandbilder hineingeht. 

Daß es sich hier im tiefsten Innern 
um eın Adventure handelt, merkt 
man kaum. Aber man muß Räume 
durchsuchen, Gegenstände finden 
und an bestimmten Stellen einset- 
zen, alles für Adventures charakterı- 
stische Tätigkeiten. 

Die Grafik von »Frankie« ist fanta- 
stiısch, detailliert, abwechslungs- 
reich und gut animiert. Auch hier 
gibt es Bildschirmfenster, die sich 
bei bestimmten Aktionenöffnen und 
die mansogar betreten kann, um auf 
andere Spielebenen zu kommen. 
Die Musikuntermalung von »Fran- 
kie« ist ebenfalls gelungen, je nach 
Spiel ertönen verschiedene Melo- 
dıen, die meisten natürlich von der 
Gruppe »Frankie Goes to Holly- 
wood«. Da sıch der Spielverlauf bei 
»Frankie« jedesmal ändert, wırd es 
wohl kaum langweilig werden. 

Wenn man mal vom dritten Teil 
des»Fourth Protocol« absieht, legen 
hier zwei außergewöhnliche Spiele 
in hervorragender Qualität vor. Bei- 
de überzeugen durch gute Ideen 
und brillante Ausführung, die kaum 
Wünsche offen läßt. (bs) 
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C 64 Spiele-Test 


Handkantenschlag per Joystick 





a das Abschießen von Raum- 
D ==: in der Spielebranche 

an Reiz verloren hat und auch 
die irdischen HiTech-Schlachten 
mit Flugzeugen und Panzern fast völ- 
lig ausgereizt sind, besinnt man sich 
wieder auf die Ursprünge der Aus- 
einandersetzung: Der direkte, waf- 
fenlose Kampf, Mann gegen Mann, 
hat nun gleich mehrfach Einzug auf 
die Mattscheiben gefunden. Zwei 
große Gruppen haben sıch heraus- 
kristallisiert: Die Box-Spiele, denen 
wir uns nächstesmal wıdmen wol- 
len, sowie die fernöstlichen Kampf- 
sportarten, an der Spitze Karate. Wir 
haben uns zwei Karatespiele her- 
ausgesucht, die besonders gut ge- 
lungen sind. 

»Karateka« machte schon Mitte 
1984 von sich reden, als es auf der 
Sommer-CES für die Apple-Compu- 
ter vorgestellt wurde. Nach über ei- 
nem Jahr Wartezeit ist es nun auch 
für die C-64-Besitzer erhältlich. 

Die Handlung ıst recht schnell er- 
zählt: Der finstere Akuma hat die 
schöne Prinzessin Marıiko auf seine 
Festung entführt und eingesperrt. 
Der tapfere Held will sie befreien 
und muß sich mit Handkantenschlä- 
gen und Fußtritten zu ihr durchar- 
beiten. Behindert wird er von den to- 
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Ein neuer Trend macht 
sich bei den $portspielen 
breit: Die Mann-gegen- 
Mann-Kampfsportarten 

sind gefragt, an der 

Spitze Karate-Spiele. 


desmutigen Wachen, die den Hel- 
den nur über ihre Leiche vordrin- 
gen lassen wollen, und diversen an- 
deren Gemeinheiten, wie zum Bei- 
spiel Fallgitter und Jagdvögel. 


Dem Spieler stehen dreı Tritte 
und drei Schläge, jeweils in ver- 
schiedenen Höhen, zur Verfügung. 
Schlagen kann er beliebig oft, aber 
nach dlei Tritten kommt er aus dem 
Gleichgewicht und benötigt ein 
paar Augenblicke Verschnauf- 
pause. 


Jeder Kämpfer hat am unteren 
Rand des Bildschirms eine Punkte- 
leiste. Beijedemml'refierveiiart man 
Punkte, für jede Zeiteinheit ohne 
Treffer gewinnt man Punkte. Die 
Kontrahenten kämpfen so lange ge- 
geneinander, bis einer den Punkte- 
stand Null erreicht hat und für im- 
mer zu Boden sinkt. War es der Spie- 
ler, hat er Pech gehabt, denn dann 
ist das Spiel für ihn zu Ende. War es 
aber der Gegner, gibt es Bonus- 
punkte für den Spieler und er darf 
tiefer in den Palast von Akuma ein- 
dringen, zumindest bis er auf den 
nächsten Wärter trifit. 


Die Grafik von »Karateka« hat bei 
der Umsetzung auf den © 64 ein we- 
nig gelitten: Die Darstellung selber 
ist zwar sehr realitätsgetreu und 
packend, die Bewegungen sind 
aber etwas langsam und ruckhaft. 
Einanderes Makelistder Sound. An 
Geräuschen ist nur ein dumpfes 
Schlaggeräusch und eine kleine 
Melodie vorhanden. Hier läßt sich 
klar erkennen, daß ein Apple-Spiel 
auf den C 64 umgesetzt, aber nicht 
neu geschrieben wurde. 


Anders ist es bei »Way of the Ex- 
ploding Fist«, einem Karate-Spiel für 
einen oder zwei Spieler, das für den 
C 64 entwickelt wurde und dessen 
Fähigkeiten voll ausnutzt. Hier gibt 
es keine Hintergrundstory wıe bei 
»Karateka«.. Am Bildschirm findet 
nur ein sportlicher Wettkampf statt, 








somit gibt es auch weder Tote noch 
Verletzte. 

Bei »Exploding Fist« stehen den 
Spielern viel mehr Kampftechniken 
zur Verfügung wie bei »Karateka«. 
Neben einfachen Tritten und Schlä- 
gen gibt es Rundumtritte, Sprünge 
und sogar Salti. Insgesamt können 
die Spieler per Joystick knapp zwan- 
zig verschiedene Bewegungen aus- 
führen. Die Joystick-Steuerung sel- 
ber istaufdenersten Blick etwas un- 
übersichtlich, jedoch sehr schnell 
und leicht erlernbar. 

Die Aufmachung von »Exploding 
Fist« verdient ein großes Lob: Die 
Kämpfer sind detailliert und schnell 
animiert (der Hersteller spricht von 
700 verschiedenen Sprites). Neben 
mehreren hervorragenden Hinter- 
grundmusiken ertönen digitalisierte 
Kampfschreie und sogar ein 
Plumps-Geräusch, wenn einer der 
Spieler hinfällt. 

Beide vorgestellten Spiele haben 
ihren Reiz: Während »Karateka« 
Strategie und Geschicklichkeit be- 
nötigt, kommt es bei»Exploding Fist« 
auf Geschwindigkeit und Aktion an. 
Für Solo-Spieler sind beide empfeh- 
lenswert, wer auch zu zweit spielen 
möchte, ist mit »Exploding Fist« bes- 
ser bedient. (bs) 
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Hardware für alle - 
ein neuer b4’er 
Leser-Service 


Der Commodore 64 hat schon 
oft bewiesen, wie vielseitig er 
ist. Erläßt sich nicht nur mit Pro- 
grammen, sondern auch durch 
so manche Hardware-Erweite- 
rung sinnvoll nutzen und aus- 
bauen. Dabei ist es sicherlich 
ein reizvoller Bestandteil des 
Computer-Hobbys, sich solche 
Erweiterungen selbst nachzu- 
bauen. Aber nicht jeder Leser 
verfügt über die Gelegenheit 
und Zeit zur Platinenherstel- 
lung. Hinzu kommt, daß es oft zu 
teuer ist, wegen einer bestimm- 
ten Erweiterung, Investitionen 
von mehreren hundert Mark für 
eine Platinenstation zu tätigen. 
Wir haben reagiert: Ab sofort 
besteht die Möglichkeit, im Rah- 
men des Leser-Service, die in 
der 64’er abgedruckten Hard- 
ware-Erweiterungen in drei ver- 
schiedenen Ausbaustufen zu 
erhalten: 


1. Als Platinen 

Nur Leerplatinen. Die Be- 
schaffung der Bauteile und der 
Zusammenbau bleibt bei Ihnen. 


2. Als Bausätze 

Unsere Bausätze enthalten alle 
Teile, die notwendig sind, um 
die beschriebene Erweiterung 
komplett aufzubauen. Sie brau- 
chen die Bauteile nur noch, 
gemäß der Anleitung im Heft, 
zusammenzulöten und einzu- 
bauen. 


3. Als Fertiggeräte 

Die Fertiggeräte sind komplett 
aufgebaute und geprüfte 
Geräte. Sie brauchen die Erwei- 
terung lediglich noch einzu- 
bauen. 


Wichtiger Hinweis: Wir bemühen uns 
um eine umgehende Auslieferung 
Ihrer bestellten Hardware. Aber bis 
zum Eingang Ihrer Überweisung, der 
Auftragsabwicklung und die dazuge- 
hörenden Postwege vergehen minde- 
stens 3 Wochen. Bitte haben Sie Ver- 
ständnis, wenn aus diesen Gründen 
Ihre Hardware nicht sofort bei Ihnen 
eintrifft. 


Bestellungen aus 
anderen Ländern 
bitte per Auslands- 
postanweisung! 


Unser Angebot 


Angebot 1: 


Expansion-Port Eprom-Platine mit 1x 8 KByte 
Speicherplatz für 2732 bis 2764 Eproms. 


Beschreibung in Ausgabe 10/85 r 
Bestellnummer: HW 010 pro Stück 1 9,830 


Dieser Artikel wird nur als Fertiggerät angeboten. 


Angebot 2: 


Expansion-Port Eprom-Platine 
mit 2x 8 KByte Speicherplatz für 2732 bis 2764 
Eproms, mit Umschaltmöglichkeit. 


Beschreibung in Ausgabe 10/85 

Bestellnummer: HW 020 Leerplatine pro Stück 24,80 he 
Bausatz mit allen Teilen: 

Bestellnummer: HWOZT ONLINE Stück 49,80 * 


Fertiggerät, getestet, wie beschrieben: 
Bestellnummer: HW 022 pro Stück 59,80 * 


Angebot 3: 


Eprom Trans — Die Speichererweiterung 


ROM-Speichererweiterung zum Einbau in den C 64, gleichzeitig 
Steckplatz für ein Original- oder ein alternatives Betriebssystem. 
Zwei Platinen in Epoxid-Harz-Ausführung wie in Ausgabe 10/85 


beschrieben. 
pro Stück 49,80 * 


Bestellnummer: HW 030 

Bausatz mit allen Teilen: 

Bestellnummer: HW 031 pro Stück 11 9,80 * 
Eprom-Trans ist nicht als Fertiggerät erhältlich. Die Hardware- 
Erweiterungen aus früheren Ausgaben und die 40/80 Zeichen- 
Umschaltung für den C 128 werden wir so bald als möglich in unser 
Angebot aufnehmen. 


Angebot 4: 


Super Kernal 


Erweitertes Betriebssystem für denC 64 mit vielen neuen Funktio- 
nen, inkl. Adaptersockel, einbaufertig in den C 64. 
Beschreibung in dieser Ausgabe 

Version 1: Enthält Hypra Load / DOS 5.1 / Funktionstastenbelegung / 
Renew / RS232 Ä 

Bestellnummer: HW 040 


Version 2: Enthält Hypra Load / DOS 5.1 / Funktionstastenbelegung / 
Renew / Super Centronics Schnittstelle 
Bestellnummer: HW 041 


Version 3: Enthält Hypra Load / DOS 5.1 / Funktionstastenbelegung / 
Renew / Hypra Save 

Bestellnummer: HW 042 

Version 4: Enthält Hypra Load / DOS 5.1 / Funktionstasten / Hypra 
Save / Gentronics klein 

Bestellnummer: HW 043 


Preis für jede Version pro Stück: : 39,80 # 


* Alle Preise inklusive Mehrwertsteuer 





Bestellungen aus der 
Schweiz bitte direkt an: 
Markt& Technik Vertriebs AG 
Kollerstr. 3 

CH-6300 Zug 

Tel. 042/223155 





Bestellungen aus 
Österreich bitte direkt an: 
Bücherzentrum Meidling 
Schönbrunnerstr. 261 
1120 Wien 

Tel. 0222/8331 96 
Microcomput-ique 

Erhard Schiller 
Fasangasse 21 

1030 Wien 

Tel. 0222/785661 


Qualität & Service 

e Die 64’er Hardware hat 
einen hohen Qualitätsstan- 
dard. Wir verwenden nur 
beste Epoxid-Harz-Platinen 
mit Lötstopp-Lack. 

® Wir verwenden nur Präzi- 
sionssockel mit gedrehten 
Kontakten. 

® Alle Platinen werden pro- 
fessionell gefertigt. Wenn 
notwendig mit doppelseiti- 
ger Beschichtung und Löt- 
Durchkontaktierungen. 

e Jedes Gerät, das wir versen- 
den, wurde auf Funktions- 
tüchtigkeit geprüft. 

® Wir sind auch nach dem 

Verkauf für Sie da. 
Neben der gesetzlichen 
Garantie bietet unser 
Service- und Fertigungs- 
partner Ihnen Hilfe und 
Unterstützung an. 


Unsere Garantie 

Im Rahmen der Versand- und 
Lieferbedingungen unterlie- 
gen die Geräte einer Gewähr- 
leistungszeit von 6 Monaten 
ab Lieferung. Der Lieferung 
liegt eine Service-Karte bei, 
die Sie im Falle einer Be- 
anstandung zusammen mit 
dem Gerät an die auf der Karte 
vermerkte Adresse schicken 
können. Die gleiche Karte ver- 
wenden Sie bitte bei Repara- 
turen nach der Garantiezeit. 


Wie bestelle ich? 


Alle Hardware-Erweiterun- 
gen, die Sie bestellen können, 
tragen einen Bestellverweis 
am Ende des Artikels. Falls 
Sie keinen Hinweis finden, hat 
sich der Autor dieser Erweite- 
rung nicht dazu entschließen 
können, seine Entwicklung im 
Rahmen des Leserservice für 
eine Verbreitung freizugeben. 
Bitte verwenden Sie für Ihre 
Bestellung immer die Post- 
scheck-Zahlkarte, die Sie auf 
der nächsten Seite finden 
oder einen Verrechnungs- 
scheck. Sie erleichtern uns 
damit die Auftragsabwicklung 
und sparen sich Versand- 
kosten. | 
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Bestellungen aus der 
Schweiz bitte direkt an: 
Markt& Technik 

Vertriebs AG, Kollerstr. 3, 
CH-6300 Zug, 

Tel. 042/22 3158. 
Bestellungen aus 
Österreich bitte direkt an: 
Bücherzentrum Meidling, 
Schönbrunnerstr. 2651, 
1120 Wien, 

Tel. 0222/8331 96. 
Mikrocomput-ique 

Erhard Schiller 

Fasangasse 21, 1030 Wien, 
Tel. 0222/7856861. 






Bestellungen aus 
anderen Ländern bitte 
per Auslandspost- 


anweisung! Achtung: 
Nicht unten stehende 
Zahlkarte verwenden! 


Das Angebot dieser Ausgabe: 


D ie Diskette für eine Aus- 
gabe kostet 29,90* 
Mark. Sie werden bei eini- 
gen Disketten bestimmte 
Programme vermissen. De- 
ren Autoren konnten sich 
nicht entschließen, ihr Pro- 
gramm im Rahmen des Le- 
serservice für eine Verbrei- 
tung auf Datenträger freizu- 
geben. Zu den Programmen 
sind immer die Seitenzahlen 
angegeben, unter der Sie 
die Beschreibungen in der 


entsprechenden Ausgabe 
finden können. Der Diskette 
liegen also keinerlei Infor- 
mationen bei. Lesen Sie da- 
her aufmerksam die Anlei- 
tung (ob SYS-Befehle nötig 
sind, in welcher Reihenfolge 
geladen werden muß, even- 
tuelle Sprach- oder SREI-, 
chererweiterungen und 
ähnliches mehr) in dem je- 
weiligen Artikel nach. Aus 
Aktualitätsgründen wird je- 
weils die abgedruckte Ver- 


sion angeboten. Eventuelle 
systematische Fehler, die 
sich noch im Programm 
befinden können, müssen 
von Ihnen selbst, nach Stu- 
dium des Druckfehlerteufel- 
chens, korrigiert werden. 


Neu sind die durchgestri- 
chenen Disketten-Sym- 
bole, die Sie nur am An- 
fang von nicht veröf- 
fentlichten Listings fin- 


den können. Sie bedeuten, 


daß diese Programme auf 
der im Programm-Service 
angebotenen »Disk« feh- 
len. Der detaillierte Disk-In- 
halt wird dann - wie gehabt 
- mit den Seitenzahlen in 
der nächsten Ausgabe ge- 
druckt. 





Bestell-Nr. L 6 8511 A 


DM 29,90* 


*inkl. Mehrwertsteuer 


Bitte verwenden Sie für Ihre Bestellung nur die abgedruckte Postscheck-Zahlkarte zur Überweisung 
des Rechnungsbetrags oder senden uns einen Verrechnungsscheck. Sie erleichtern uns 
die Auftragsabwicklung und Sie sparen sich die Versandkosten! 
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Sonderheft: Tips & Tricks 


(2. ü. Auflage) 
Floppy-Utilities CB 023 DM 29,90* 
Hilfsprogramme CB 024 DM 29,90* 


Sonderheft: Abenteuerspiele 
Bestell-Nr.: L685 S2 DM 34,90* 


Sonderheft: Spiele 


Beide Disketten in einem Paket! 
Verwenden Sie nur diese Bestell-Nr.: 
Bestell-Nr.:L685S3A DM 34,90* 


Sonderheft: Grafik 
Bestell-Nr. L6 85 SAA DM 29,90* 


Sonderheft: Top-Themen 
(2 Disketten) 
Bestell-Nr. L 685 S6 DM 34,90* 


Sonderheft: Floppy, 


Datasette 

Diskette, 

Bestell-Nr. L 685 S5 D DM 29,90* 
Kassette, 

Bestell-Nr. L 685 S5 K DM 19,90* 
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Leider hat sich in die Bestell-Nummer 
der letzten Programm-Service-Anzeige 
ein Druckfehler eingeschlichen. Die kor- 
rigierte Bestell-Nummer lautet: 


L68510 A DM 29,90* 
Commodore 64 
Check V3 Dez 64 Ss. 54 


MSE V1.0 
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Zahlkarte/Postüberweisung 


für maschinelle Beschriftung 
DM Pf 


Bestellungen aus der 
Schweiz bitte direkt an: 
Markt& Technik 

Vertriebs AG, Kollerstr. 3, 
CH-6300 Zug, 

Tel. 042/22 3155. 
Bestellungen aus 
Österreich bitte direkt an: 
Bücherzentrum Meidling, 
Schönbrunnerstr. 261, 

1120 Wien, 

Tel. 02 22/8331 96. 
Mikrocomput-ique 

Erhard Schiller 

Fasangasse 21, 1030 Wien, 
Tel. 0222/785661. 





ren Ausgaber 


Floppy-Adjust 
Eprom-Trans 
Schreiberling 

Cursus Latinus (AdM) 


Ss 

Ss: 

S; 

S: 
Hypra-Text (LdM) S. 67 
Pacman 93: 77:6 
Programm GEN S....86 
SMON+ SUB? 
Sequenzer S. 129 
Musik S. 129 
Alarmanlage 3.132 
Codeschloß 3: 132 


Ausgabe 9/85 
Bestell-Nr. L6 8509A DM 29,90* 
Commodore 64 


Sound-Machine 3:23 
Noteneingabe S. 24-25 
Sound Master 3.832 
Ringmod ee: Y 
Moonlight $. 33 
SYNC S. 33 
Prüfungsfragen (AdM) S. 55-58 
Schlüssel (LdM) S. 59-61 
Disk Designer S. 70-72 
Blinker 5.79 
Logelei-1/2 S. 118 
Lichtgr. S; 122 
Mezueott a Er 
Block Busters 55: 
X-Gleichung ser u 
Musik-Tool S. 159 
Ausgabe 8/85 

Bestell-Nr. L 68508A DM 29,90* 
Commodore 64 

Quicksort S. 142 


verwendet werden (einschließlich 
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Procedure 
Hypra-Save 

Uhr 

NEWEA2 (AdM) 
Disk-Monitor 
Maskengenerator 
Bit-Map 
Hires3-Komplett 
Forth-Compiler (LdM) 
Vocabulary 
Schach 
Extern-Kurs 
Sprites 
Hypra-Zusatz 
Hi-Text 2.0 
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Bestell-Nr. L 6 8507 A 
Commodore 64 
Haushaltsbuch (AdM) 
Terminalprogramm 
Centron 

Editor 
Ein-/Ausgaberoutine 
Fenster (C 16) 
File-Compactor 
Hypra-Assembler (LdM) 
IEEE-Basic 

Logik 

Merkzettel 

Modulator 

REM-Killer 

Sound Editor 
Startgenerator 
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Bestell-Nr. L 6 8506A 
Commodore 64 

MSE 

HI-EDDI/MPS 801 
Prost 

E-Routine 64 
GCR-HEX 

HEX-GCR 

Samurai 
Scroll-Machine (LdM) 
Crossreferenz 
Heapsort 

C 16 

F-Plotter 
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Bestell-Nr. L 6 8505 A 
Commodore 64 
Checksum. Schnell 
MSE Lader 

MPS 802 
Format-System 

510 
Sternenhimmel (AdM) 
Assemblerkurs 
Direktory-Sorter 
Trick.OBJ 
3D-Movie-Maker (LdM) 
Modulator (Heft 4) 
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22 
60 
84 
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63 
69 
74 
147 
44 
25 
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57 
152 
80 
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46 
. 144 
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46 
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54 
69 
76 
148 
117 
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72 
61 
199 
126 


68 
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Die stark umrandeien Felder sind nur auszufüllen, 
Postgirokontoinhaber das Formblatt als 
Postüberweisung verwendet (Erläuterung siehe Rückseite) 
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VC 20 


Checksummer S. 54 
Minigrafik 3609 
Longscreen Fe = = 
C 16 

Help & Trace Ss. 84 
Ausgabe 4/85 

Bestell-Nr. L 6 8504A DM 29,90* 
Commodore 64 

Checksum. Schnell Ss. 54 
MSE Lader S. 58 
S-MON Teil 5 53707 
Window 64 S22B8 
XBASIC 9.59 
ASS. Kurs Teil 8 S. 138 
Hypra-Perfect 52.726 
11 neue Einzeiler S:-153 
Print-List SINE £: 
Netzgrafik Sayr.71 
ROT-DEMO San 
XNY-DEMO 1 u. 2 Sarla 
Ostereier 5: 51 
Befehlserweiterung 3: 23 
VC 20 

Checksummer- S. 56 
Supergrafik Ill 9: „78 
Prg. Schutz 5:83 
Ausgabe 3/85 

Bestell-Nr. L 6 8503A DM 29,90* 
Commodore 64 

Checksu. Schnell 54.20 
MSE Lader S.2129 
Hires-3/Teil 2 S. 136 
Intellisearch$C S: 193 
Son of Destroyer 5:42 
Ligatab (LdM) 3. 03 
Fl. Basicloader 5..:82 
Floppylister Ss: 82 
E.Zeichnen 1 und 2 5. 202 
Meisterschütze (AdM) >: .93 
Saver S. 89 
Screensave S. 88 
Pic-Loader Ss. 90 
VC 20 

Checksummer S.. 20 
IRQ-Clock S. 136 
Autostart S. 159 
Ausgabe 2/85 

Bestell-Nr. L 6 8502A DM 29,90* 
Ausgabe 1/85 

Bestell-Nr. L 6 8501A DM 29,90* 
Ausgabe 12/84 

Bestell-Nr. CB 022 DM 29,90* 
Ausgabe 11/84 

Bestell-Nr. CB 020 DM 29,90* 
Ausgabe 10/834 

Bestell-Nr. CB 019 DM 29,90* 
Ausgabe 9/84 

Bestell-Nr. CB 014 DM 29,90* 
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Einlieferungsschein/Lastschriftzettel 
DM Pf 








für Postgirokonto Nr. für Postgirokonto Nr. Postgiroamt 
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FE, | 
Bild 3. Ganz rechts, in Bild 2 nur als schwarzer Punkt zu sehen, 
tritt die Selbstähnlichkeit dieser Grafiken deutlich zu Tage. 








Probieren Sie doch mal die Werte 0.763; 0.768; 0.0999; 
0.103 mit einer Tiefe von 254. 


Bild 6. Farblich abgestimmt kann man die Bilder durchaus 
als Kunstwerke der Mathematik betrachten. 
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Fantastische »Apfelmännchen« 


Man glaubt es kaum, was man aus dem 
C 64 herausholen kann. Bestes Beispiel 
sind diese Grafiken, die Sie natürlic 

auch selbst erstellen können. Das Pro- 
gramm dazu finden Sie in dieser Ausgabe. 


Erer marke 2 
ae Allan SR 
+ RT 





Bild 2. Das ist keine Verkleinerung, sondern ein Ausschnitt aus der 
Spitze des Apfelmännchens. 
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A anderen Bereich am Rand der Ausgangsform 
örmige Strukturen. 


Bild 4. In einem 
findet man spiral 
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Fortsetzung von Seite 150 


3. Ein 3D-Programm 

Das letzte Beispielprogramm 
ist die HiRes-3-Version unseres 
‘ 3D-Funktionenprogrammes aus 
‘ den früheren Folgen. Dort war 
es — weil es in Basic geschrie- 
ben war — schon eine arge Ge- 
duldprobe, auf ein komplettes 
Bild zu warten. Nun geht es et- 
was schneller. Dafür finden wir 
allerdings eine Mödlichkeit vor- 
erst nicht mehr vor: Die ver- 
deckten Linien werden nicht 
mehr ausgeblendet. Die Ursa- 
che dafür ist die Verwendung 
des FUNKT-Befehles aus Hi- 
Res-3. In späteren Grafik-Folgen 
wird uns aber die 3D-Program- 
mierungnoch eine Weile fesseln 
und dort sollen dann auch die 
»hidden line« und »hidden surfa- 
ce«-Programmtechniken behan- 
delt werden. 

“ Auch hier wird Ihnen zu Be- 
1: ginn die im Programm gerade 
enthaltene 3D-Funktion gezeigt 
. und Sie haben die Möglichkeit, 
‚. statt dessen eine andere einzu- 
‘ setzen. Dann werden Eingaben 
zum Koordinatensystem ver- 
langt: 

XU = unterer X-Achsenwert 

" XO = oberer —_'— 

": YU und YO = dasselbe für die Y- 
Achse 

ı ZU undZO = dasselbe für die Z- 
, Achse. 

Die maximal und minimal zu- 
lässigen Werte für die Z-Achse 
' sind bestimmt durch die Bild- 
" schirmdarstellung und die Än- 
': gaben für die beiden anderen 


7 
EA, 


A BA ff A 


RE, 1,4 
AAA 


7 


, ” Be 4 „ Pr 
jr Pr a’ Pe A Pu Be, P 4 
jet zer . ‚t “ AIR ET HT, PR 
. .. BET RR EHRE PET ME Kr de 


EHER 


£ 


ER di 


ER, 


!: Achsen. Sie werden vor der Z- 
j:;; Werte-Eingabe ausgedruckt. 
’ Danach hat man die Möglich- 
#: keit, Parameter für die Zeich- 
’:;: nung der 3D-Funktion einzuge- 
X: ben. Äbgefragt werden die 
’;; Zeichen- und die Hintergrund- 
: farbe, die Schrittweite in Z- 
Richtung und der Bereich'in X- 
/’ (aber auch in Z-) Richtung von 
XAbisXE (und vonZAbisZE), in 
dem die Funktion zu zeichnen 
7; ist. Wenn das Bild fertig ist, wird 
j; oben noch die Funktionsglei- 
; chung ausgedruckt. Mit einem 
Tastendruck gelangt man dann 
in ein Menü, welches mit »E« die 
/£ Beendigung des Programmes, 
/; mit »G« das Zurückschalten auf 
/: den Grafik-Bildschirm (ein Ta- 
j; stendruck führt dann wieder ins 
j: Menü), mit »N« den Neubeginn 
j/. des Programmes und mit »D« 
’. den Ausdruck auf dem Drucker 
,. 1526 (und kompatible) erlaubt. 
y. Ein Beispiel für einen 1526-Aus- 
druck zeigt Bild 5: 

Das Programm ist als 3D-Pro- 


AN 
N 


z. gramm hier abgedruckt (Listing 

£. 9. Es erfordert das vorherige 

x“ Laden von HiRes-3 (mit den Text- 

£ Befehlen). 

L\ (Heimo Ponnath/gk) 
Kr 

U Literatur: 

E% [1] Theo Pavlidis: Algorithms for Graphics 
7 and Image Processing, Berlin-Heidelberg 


I 
N 


1982: Springer-Verlag, ISBN 3-540-11338-X 


Ausgabe 11/November 1985 
64er-online.de 


64er-online.net 





Leserforum 





KFC-Super V64.3 


Das Programmierhilfemodul 
KFC-Super des Königsteiner 
Funk Centers liegt jetzt in einer 
neuen, überarbeiteten Fassung 
vor. Hardwaremäßig hat das 
Modul ein Gehäuse bekommen. 
Der Schalter zum physikalischen 
Abschalten des Moduls ist nicht 
mehr vorhanden. 

Softwaremäßig wurde das 
KFC-Super um eine User-Port- 
Anzeige und eine RAM-Floppy 
erweitert. 

Info: KFC Super Modul, Königsteiner Funk 


Center, I. Schäfer, Wiesenstr. 10, 6240 Kö- 
nigstein, Preis: 198 Mark 


Gerätenummern 
vertauschen? 


Kann man beim C' 64 software- 
mäßig die Gerätenummern des 
Diskettenlaufwerks und der Da- 
tasette vertauschen? 

Jürgen Golz 


Alle Gerätenummern kleiner 
als 4 werden vom C 64-Betriebs- 
system gesondert behandelt 
und keinesfalls über den seriel- 
len Bus ausgegeben. Somit istes 
unter keinen Umständen mög- 
lich, etwa das Floppy-Laufwerk 
über die Gerätenummer 1 anzu- 
sprechen. 


Bücher 


C 64 Computer- 
Handbuch 


Auf der Titelseite heißt es: 
»Einführung und Referenz für 
kompetentes Arbeiten«. Und 
das istesin der Tat. Das Buch ist 
eine deutsche Übersetzung und 
Bearbeitung der englischen 
Originalausgabe »Programming 
the Commodore 64« und kann 
getrost als eines der wenigen 
Standardwerke zu C 64 gelten. 

Auf über mehr als 600 Seiten 
findet jeder, der sich etwas in- 
tensiver mit dem C 64 beschäfti- 
gen will, eine Menge an Infor- 
mationen, Wissenswertes, Tips 
und Tricks, Grundlagen und 
Hinweise für Profis. Betrachtet 
man alleine die Kapitel über Ba- 
sic, wird sogar Spezialisten in 
dieser Hinsicht das Lesen be- 
stimmt nicht langweilig. Man 
merkt mit jeder Seite, daß die- 
ses Buch von einem wirklichen 
Könnern mit langer praktischer 
Erfahrung geschrieben wurde, 
ohne überflüssige Ballast, kon- 
zentriert und doch an wichtigen 
Stellen ausführlich genug. Das 
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Datenmanager ist 
billiger 


Der Datenmanager 64 von 
Commodore kostet nicht mehr 
198 Mark wie wir in unserem 
Vergleich von Datenbanken ge- 
schrieben haben, sondern nur 
noch 98 Mark. 


Mit dem Joystick 
scrollen? 


Ich besitze einen C 64 mit 
154l-Laufwerk. Um meine Pro- 
gramme und Spiele besser 
überblicken zu können, habe 
ich mir eine Index-Datei zuge- 
legt. In einer sequentiellen Da- 
tei stehen dabei die Namen der 
Spiele, in einer relativen Datei 
steht der zugehörige Datensatz 
mit allen Informationen. 

Wie kann ich nun nach dem 
Einlesen der sequentiellen Da- 
tei die Liste der Programmna- 
men mit dem Joystick beliebig 
vorwärts und rückwärts scrol- 
len? Thomas Graf 


Leider gibt es noch keine 
Basic-Befehle wie »ON JOY- 
STICK SCROLL ...«, daher muß 
man in den sauren Äpfel beißen 
und so etwas selbst program- 


solche Anfragen, die daraufhin- 
auslaufen, ein komplettes Pro- 
gramm zu erstellen, im Rahmen 
des Leserforums nur schlecht 
beantwortet werden können. In- 
formationen zur Joystickabfrage 
finden Sie beispielsweise In un- 
serem Extern-Kurs, und wie Sie 
eine Bildschirmmaske aufbauen 
und Texte ausgeben, das kön- 
nen Sie den meisten Büchern 
zum C64-Basic entnehmen. 
Wenn Ihnen allerdings ein stu- 
fenlos erscheinendes, sehr 
schnelles Scrolling vorschwebt, 
wie es bei vielen professionel- 
len Spielen zu sehen ist, dann 
müssen Sie wohl oder übel zur 
Maschinensprache greifen — 
anders geht's nicht. 


Computer in die DDR 


Was ist zu beachten, wenn 
man einen C 64 in die DDR ex- 
portieren will? 
Ausgabe 9/85 Fritz Ott 

Computer-Exporte in den Ost- 
block, in diesem Falle die DDR, 
gestalten sich unproblemati- 
scher als vor einigen Jahren. 
Grundsätzlich sind die Export- 
bestimmungen gelockert wor- 
den, speziell, was die Ausfuhr 
von 8-Bit-Rechnern angeht. 

Da wir über eine gewisse Er- 
fahrung und Routine verfügen, 

IN: 


ER OmnL 


mieren. Sie merken a” S— 


Buch ist in 17 Kapiteln aufgeteilt, 
zusätzlich kommt ein Anhang mit 
wichtigen Tabellen sowie ein 
ausführliches Stichwortregister. 
Einen guten Eindruck von dem 
Umfang der behandelten The- 
men vermittelt ein Einblick in 
das Inhaltsverzeichnis: 

Kapitel l und 2: Dem Vorwort 
folgt eine allgemeine Einfüh- 
rung über die Eigenschaften 
des C 64. 

3. C 64/SX 64 Basic zum Nach- 
schlagen. Alle Befehle des C 64 
mit vielen interessanten Details. 
4. Effektives Programmieren in 
Basic. Optimierung von Basic- 
Programmen mit vielen Beispie- 
len. 

5. Architektur des C 64. Einfüh- 
rung in die Hardware des C 64, 
alles über die Ports. 


6. C 64 /SX 64 Basic für Professio- ° 


nelle. Wie Besonderheiten des 
Basic und eine Reihe von Dienst- 
programmen und Erweiterun- 
gen. 

7. Einführung in die Maschinen- 
sprache des 6510. Umfassende 
Beschreibung der CPU 6510 mit 
vielen Beispielen und Problem- 
lösungen. 

8. Typische Methoden der C 64 
Maschinenprogrammierung. 
Wie man das Kernal, Basic- 
Routinen und das RAM unter 
dem ROM nutzt sowie Ändern 
von Basic-Befehlen etc. 


9. Verbindung von Basıc und Ma- 

schinencode. 

10. Der Befehlssatz der CPU 6510 

ll. ROM-Führer. Speicherbele- 

gung und Betriebssystemrouti- 

nen. 

12. Grafik 

13. Ton und Musik 

14. Band 

15. Diskette 

16. Die Spiele-Ports. Joysticks, 

Drehregler, Grafiktablett, Maus 

und Lichtgriffel etc. 

17. Drucker, Plotter, Modems 
Dieses Buch kann jedem 

wärmstens empfohlen werden, 

der sich etwas näher mitdem C 

64 beschäftigen will, seiesnurin 

Basic oder auch in Maschinen- 

sprache. Ein Handbuch, das ga- 

rantiert nicht im Regal verstaubt. 

(gk) 


Info: Raeto West, C 64 Computer Hand- 
buch, TeWi-erlag, 600 Seiten, ISBN 
3-921803-24-1, Preis 66 Mark 


35 ausgesuchte Spiele 
für Ihren 


Commodore 64 


Die Freunde von Computer- 
spielen soll dieser Band anspre- 
chen. Auf 141 Seiten werden 35 
Spielprogramme vorgestellt, 
vom Lernspiel über Brettspiele 


was den Export dieser Güter an- 

geht, stehen wir für konkrete 
Fragen gerne zur Verfügung. 

Großversandhaus Quelle, 

P. Palombo 


Info: Großversandhaus Quelle, Gustav 
Schickedanz KG, Abt. Export, 8510 Fürth 


Fernschreiber am C 64? 


Wie kann man einen Fern- 


schreiber als Drucker an den C 
64 anschließen? 
Ausgabe 5/85 Bernd Alef 


Bei diesem Problem kann ich 
weiterhelfen, denn ich betreibe 
einen Fernschreiber schon seit 
einiger Zeit anstelle eines 
Druckers an meinem C 64. 

Frank Stolpe 


Geographie-Unterricht 


mit C 64 


Wir suchen Kontakt zu Lehrer- 
Kollegen, die den Computer im 
Geographie-Unterricht bereits 
einsetzen oder noch nutzen wol- 
len. Bruno Pohl 


Info: Verband Deutscher Schulgeographen 
eV., Arbeitsgruppe »Computer im Geogra- 
phieunterricht«, Bruno Pohl, Postfach 
510369, 7500 Karlsruhe 51 


bis zum Reaktionsspiel. Es han- 
delt sich dabei um reine Basic- 
programme, die meistens recht 
kurz gehalten sind. Leider wa- 
ren die hervorragenden Mög- 
lichkeiten des C 64, wie HiRes- 
Grafik und Sprites, kaum ge- 
nutzt. 

Das Abtippen der undoku- 
mentierten Listings wird durch 
die Grafikzeichen erschwert. Ei- 
nen gewissen Einblick in die 
Programme geben die Varia- 
tionsvorschläge, die es zu jedem 
Spiel gibt. Dabei erhält man Hin- 
weise, wie man die Schwierig- 
keit, die Dauer oder andere 
Spielparameter ändern kann. 
Dies kann auch vom Computer- 
neuling nachvollzogen werden 
und trägt vielleicht zum Ver- 
ständnis der Programme bei. 

Meiner Ansicht nach sind ins- 
besondere die Brett- und Lern- 
spiele interessant. Wer käufli- 
che Spiele kennt, wird von den 
Reaktions- und Actionsspielen 
enttäuscht sein, die von der Auf- 
machung und Geschwindigkeit 
her natürlich nicht mit den kom- 
merziellen Programmen mithal- 
ten können. 

(Gerhard Pehland) 


Info: John Mihalik, 35 ausgesuchte Spiele 
für Ihren Commodore 64, Markt & Technik 
Verlag 1984, MT 774, ISBN 3-89090-064-X, 
141 Seiten, 24,80 Mark 
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Haben Sıe eine Hardware-Erweı- 
terung für den C 64 selbst gebaut? 
Es gibt bares Geld zu gewinnen! Wir 
prämieren die Iinteressanteste und 
die ıdeenreichste Erfindung. Ob Sıe 
sich nun morgens computergesteu- 
ert einen Eimer Wasser über den 
Kopf schütten lassen oder ein Inter- 
face zur Modellbahnsteuerung ge- 
baut haben, Sie haben eine Chance. 

Die ideenreichste oder kurioseste 
Bauanleitung wird mit 500 Mark be- 
lohnt. Hier kommt es allein auf die 
Einmaligkeit der Idee an, die natür- 
lich auch schon verwirklicht sein 
muß. 

Für die interessanteste und beste 
Bauanleitung steht ein Drucker, ein 
CP-80X von Melchers & Co bereit. 


Ideen-Parade 


Wir suchen zündende Ideen, was 
man mit einem Computer alles re- 
geln und steuern kann. Verleihen 
Sie Ihrem Computer Sinne und Glie- 
der, schenken Sie ihm die Freiheit 
der Bewegung. 

Schicken Sıe uns Ihre Vorschläge 
als Zeichnung, Beschreibung, Foto, 
Modell, Prototyp oder wie immer 
Sie wollen. Egal in welcher Form — 
die Idee muß nur verständlich sein. 

Bewertet wird die Qualität und 
Originalität der Idee. Dabei ist uner- 
heblich, ob der Vorschlag in der 
Praxis bereits erprobt wurde oder 
nur als Plan existiert. 

Für die Teilnehmer mit den fünfzig 
besten Vorschlägen winken als 
Preise: 





Platz 1-3: je ein Wochenende im Compu- 
tercamp bei Fischertechnik im Schwarzwald, 
mit der Chance, an einer Expertenrunde teil- 
zunehmen. 

Der Urheber der besten Idee unter den drei- 


112 sap 


An alle 
Entwickler 
und Bastler! 








Haben Sie beispielsweise einen 

Eprommer, einen Analyzer oder ein 

Interface mit A/D-Wandlung kon- 

struiert und gebaut, senden Sie es 

uns zu. 

Einsendeschluß: 10.12.1985 
Natürlich benötigen wır auch eini- 

ge Unterlagen zu Ihrer Hardware- 

Entwicklung: 

— Ausführliche Beschreibung der 

Entwicklung 

— Ein fertig aufgebautes Probe- 

exemplar (oder Fotos) 

— Technische Beschreibung, wel- 

che die,Eunkt is> erklärt 

— Zusammen- und Einbauanleitung 

— Illustrieren Sıe die Beschreibung 

durch viele Zeichnungen und Grafi- 

ken 





en darf zusätzlich für einen Tag zur Microcom- 
puter 86 (Internationale Microcomputer- 
Messe vom 29.1.—2.2.1986) nach Frankfurt 
reisen und erhält dort die Gelegenheit, seine 
Idee in einer eigenen Pressekonferenz der 
Fachpresse vorzustellen. 

Platz 4—10: je ein Fischer Special-Construc- 
tion-Kit (Hydraulik und Elektronik) im Wert 
von 198 Mark. 

Platz 11— 50: M & T-Buchgutscheine über je 
50 Mark. 


C 64/NC 20 





— Älle Entwicklungen müssen von 
Ihnen selbst konstruiert und aufge- 
baut sein. Die Verwendung von 
Schaltungen und Aufbauten aus an- 
deren als M&I-Publikationen ist 
nıcht möglich. 

Wenn Sie sich an dem 
Hardware-Wettbewerb und somit 
auch an der Gestaltung des b4'er- 
Magazins mit beteiligen wollen, 
schreiben Sie einfach bis zum 
10.12.1985 an: 


Markt & Technik 

Verlag Aktiengesellschaft 
Redaktion 64’er 

Herrn Harald Meyer 
Hans-Pinsel-Str. 2 

8013 Haar bei München 


Senden Sıe Ih- 
ren Wettbewerbs- 
beitrag bitte mit 
| Ihrer Adresse 
| versehen an: 
| Markt & Technik 
Verlag Aktienge- 


sellschaft 
Redaktion 64’er 
Kennwort: Steu- 


ern und Regeln 
Hans-Pinsel-Str. 2 
8013 Haar bei 
München 


Die Auswahl der Sieger-Ideen 
nehmen Experten von Fischertech- 
nik in Zusammenarbeit mit der Re- 
daktion vor. 

Einsendeschluß ist der 15.12.1985. 

Mitarbeiter der Markt & Technik 
Verlag AG und deren Ängehörige, 
sowie die Mitarbeiter von Fischer- 
technik und deren Angehörige dür- 
fen nicht teilnehmen. Der Rechts- 
weg ist ausgeschlossen. 
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| 
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| 
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Computer als 
Steuermann - 
Ein Thema 


für Sie? 


Mit einem geeigneten Interface 
und der richtigen Peripherie kann 
ein Computer mehr alsnur rechnen! 
Dann wird er zum Steuermann, 
Wächter, Roboter und zu tausend 





anderen Dingen. Das bedeutet eine 
neue Dimension. Wie sehr sınd Sie, 
unser Leser, an diesem Thema in- 
teressiert? Wie wir uns in Zukunft 
diesem Thema widmen werden, 
hängt von Ihrer Anwort ab. 

Damit sich dıe kleine Mühe des 
Ausfüllens lohnt, verlosen wır unter 
allen Einsendern 50 Preise, unab- 
hängig von der Ideen-Parade: 

Preis 1—3: Einladung zur Microcomputer 86 
(internationale Microcomputer-Messe in 
Frankfurt vom 29.1.—2.2.1986). An diesem 
Tag bietet sich Gelegenheit, zum Gespräch 
mit einer Expertenrunde in Fragen Messen, 
Steuern und Regeln. 

Preis 4—10: je ein Fischer Special-Construc- 


Wettbewerbe 


tion-Kit (Hydraulik und Elektronik) im Wert 
von 198 Mark. 

Preis 11-50: Je ein M & T-Buchgutschein 
über 50 Mark. 

Einsendeschluß ist der 15.12.1985. 
Senden Sie den Fragebogen bitte 
an: 

Redaktion 64’er 

Markt & Technik Verlag AG 
Hans-Pinsel-Straße 2 

8013 Haar bei München 

Der Teil mit dem Namen und der 
Adresse wird vom Fragebogen ge- 
trennt aufbewahrt. Die Auslosung 
wird durch die Redaktion vorge- 
nommen. Der Rechtsweg ıst ausge- 
schlossen. 


Ihre Anschrift: 
Vorname Name 
Straße 
PLZT 77 ur DH 
Fragen zur Person: = männlich OD weiblich 
Alter in Jahren: DO bis 12 D25 — 30 
UR-—-1JB5 [131 — 40 
D 16 — 18 [741 — 50 
219 — 20 251 — 60 
U21 —25 [] über 60 


64 
Wie gut kennen Sie sich mit Elektronik aus und wie schätzen 
Sie Ihre handwerklichen Fähigkeiten ein? 


Elektronikwissen handwerkliche Fähigkeiten 

U] Professionell [] Professionell 

U] sehr gut U) sehr gut 

[gut [) gut 

Li es reicht U) es reicht 

[] wenig [] wenig 

U fast keine U] fast keine 

Können Sie mit einem Lötkolben umgehen? Dija 
[nein 


Wie nutzen Sie Ihren C 64? 

U Spiele 

[] Texterfassung 

[LI Programme erstellen und testen, wenn ja, dann mehr 
I] Anwender- 
U] Grafik- oder 


[] Musikprogramme 


Haben Sie schon Erfahrung mit dem Thema 
»Messen — Steuern — Regeln 
wenn ja, welche? 








Haben Sie schon 64’er-Bauanleitungen nachgebaut? 
L) einmal 

[} zweimal 

U) schon mehrmals. Wenn ja, wie oft? 

Sollten die Anleitungen ausführlich sein? 

U Die Anleitungen im 64’er reichen nicht aus 

{1} Die Anleitungen sind ausführlich 


Y Ausgabe 11/November 1985 
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Es gibt sehr viele Hardware-Erweiterungen zum Thema 
»Messen — Steuern — Regeln« mit dem C 64 und C 128. 


Welche praktischen Anwendungen interessieren Sie und was 
würden Sie gern mit Ihrem C 64 und C 128 steuern? 


[] Steuerungen im Haushalt 
(z.B. Alarmanlage, Recorder einschalten). Wenn ja, was? 


[! Technische Steuerungen (z.B. physikalische Experimente) 
wenn ja, was? 


| nen in meinem Betrieb 
wenn ja, was? 


[) Plotter 

[] Scanner 

U) Roboter 

wenn ja, was würden Sie damit machen? 


DJ] Modelleisenbahn 
[] Meßwert-Erfassung (z.B. Luftfeuchtigkeit, pH-Wert) 
wenn ja, was würden Sie messen? 


Li allgemeines Kennenlernen des Themas 
»Messen — Steuern — Regeln« 
Welcher Lösung würden Sie den Vorzug geben? 


Software Mechanik Interface und sonst. 
Elektronik 
L] Kaufen U) Fertiggerät [] Fertiggerät 
I} selbst schreiben U Bausatz [)] Bausatz 
U Eigenentwick- DL] Eigenentwick- 
lung lung 
Was würden Sie für die Software? DM 
v) a 
ausgeben! für die Mechanik DM 
für die Elektronik DM 
Kennen Sie Fischertechnik? 338? [nein 
Besitzen Sie Fischertechnik- 
Baukästen? | Uja UÜnein 
Wenn ja, nutzen Sie diese Baukästen? [ja [nein 
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Wettbewerbe 





Anwendung des Mo- 
nats, was ist das? Nun, Sie 
haben einen Commodore 
64 oder einen VC 20 und 
versuchen diesen irgend- 


wie sinnvoll einzusetzen. 


Unter einer sinnvollen 
Anwendung versteht die 
64er Redaktion alles, was 
beispielsweise Program- 
me im häuslichen Bereich 
bewirken. Es kann sich 
dabei um die Berech- 


nung der Benzinkosten 


für Ihren Wagen handeln, 





umeın eigenes Textverar- 
beitungsprogramm ge- 
hen, sich um die Verwal- 
tung Ihrer Tiefkühltruhe 
drehen oder ein ausge- 
klügeltes Telefon- und 
Adreßregister sein. 
Setzen Sie Ihren VC 
20/C 64 mehr oder weni- 
ger beruflich ein? Auch, 


oder vor allem, dasistei- 


ne sinnvolle Anwendung. 
Sie führen die Lohn- und 
Gehaltsabrechnung, Ihre 
Lagerverwaltung, die Be- 


one = Tan... 


SER anna 


stellungen auf einem 
Commodore-Heimcom- 


'puter durch? So spezielle 


Anwendungen wie die 
Berechnung der Statik 
von selbstgezimmerten 
Regalen, von Klimadia- 
grammen oder Vokabel- 
lernprogrammen für den 
Schulunterricht oder die 
Zinsberechnung bei Kre- 
diten sind ebenfalls The- 
men, die mehr als konkur- 
renzfähig sind. 


im Monat gibt es 


EERIRE 
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Wir suchen die Anwendung des Monats 


Uns ist die Anwendung 
des Monats 


500 Mark 


wert. 

Schreiben Sie uns, was 
Sie mit Ihrem Computer 
machen: 

Redaktion $4’er, Aktion: 
Anwendung des Monats, 
Hans-Pinsel-Str. 2, 8013 

Haar bei München. 


die 












Diese nicht einmalige Gele- 
genheit sollten Sie nutzen. Wie? 
schicken Sie uns Ihr bestes, 
selbst erstelltes Programm. Bei 
der Ärt des Programms sınd wir 
nicht wählerisch. 

Sle haben ein sehr qutes 
(Schieß-, Knobel-, Denk-, Action-, 
Abenteuer-)Spiel geschrieben: 
einschicken! 

Sie verfügen über ein komforta- 
bles Disketten-Kopier-(Sortier) 
Programm mit einigen außerge- 
wöhnlichen  Leistungsmerkma- 


len: einschicken! 


ers “ u 
saß X a 
. 








Sie haben das Basic um einige 
sinnvolle Befehle erweitert: ein- 
schicken! 

Sie arbeiten miteinem selbster- 
stellten Textverarbeitungspro- 
gramm, einer eigenen Tabellen- 
kalkulation, einem semiprofes- 
sionellen Datenverwaltungspro- 
gramm: einschicken! 

sie zeichnen und konstruieren 
mit einem selbsterstellten Pro- 
gramm ın hochauflösender Gra- 
fik: einschicken! 

Wir freuen uns über jeden Bei- 
trag und honorieren mit bis zu 


SE aaa 
F = 24 | ee 
v 
y 
R - 
hy SE 3 / Ä 








Aus den besten Listings, die 
veröffentlicht werden, sucht die 
B4’er-Redaktion einmal im Monat 
das»Listing des Monats« aus. Alle 
Listings, die im 64’er abgedruckt 
sind, werden mit 100 bis 300 Mark 
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honoriert. Die genaue Vorge- 
hensweise beim Einsenden von 
Listings ıst in dem Beitrag »Wie 
schicke ıch meine Programme 
ein’« in verschiedenen Ausgaben 
beschrieben. 


Schicken Sıe Ihr Listing an: 
Redaktion 64’er, Superchance: 


Listing des Monats, Hans-Pinsel- 
Str. 2, 8013 Haar bei München. 
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Greifen Sie jetzt zu, solange 
ältere Ausgaben noch lieferbar sind! 


Alle noch lieferbaren Ausgaben finden Sie in den 
Jahrgangsübersichten. Prüfen Sie, welche Ausgaben Ihnen in 
Ihrer Sammlung fehlen und die Sie deshalb nachbestellen 
wollen. Tragen Sie die Nummer der Ausgabe und das 
Erscheinungsjahr (z.B. 12/84) in dem Bestellabschnitt auf der 
Rückseite der untenstehenden Zahlkarte ein und geben Sie 
an, wieviele Exemplare dieser Ausgabe Sie bestellen. Die 
ausgefüllte Zahlkarte einfach heraustrennen und Rechnungs- 
betrag beim nächsten Postamt einzahlen. Ihre Bestellung wird 
sofort nach Zahlungseingang zur Auslieferung gebracht. 


Lernen Sie die 64’er Programm-Sonderhefte kennen! Folgende Ausgaben sind noch lieferbar: 










SONDERHEFT TIPS & TRICKS SONDERHEFT ABENTEUERSPIELE, —.. SONDERKETT SPIELE SONDERHEFT GRAFIK&DRUCKER 
Anwendungsli- Auf mehr als 100 EP. S., JE Heiße Listings für PS de Rund 28 Listings 
stings für C 64 und Seiten viele interes- See Alle Spiele-Fans: x De Ze der Spitzenklasse. 
VC 20, die bisher sante Adventures, Sportspiele, Spiele- Top-Listings zur 





noch nicht veröf- 
fentlicht wurden. 


räumlichen Darstel- 
lung. Prüfsummen- 


die Sie lange Zeit 
fesseln werden. Mit 


generatoren, Äb- 
enteuerspiele, Tak- 





Unentbehrlich für abgeschlossenem tikspiele, Geschick- listings, Drucker- 
die tägliche Arbeit Kurs zur Program- lichkeitsspiele und dd Anwendung, Basic- 
am Computer. Eine mierung eigener eine Marktüber- Erweiterung, 
Fundgrube für Abenteuerspiele sicht bringen alles, Hardcopy-Routinen, 
Computer-Profis und zahlreichen Lö- was das Herz des Zeichengenerator, 
und alle, die es sungen professio- Spiele-Fans höher Tips&Tricks. 
werden wollen. neller Adventures. schlagen läßt. BESTELLCODE: 
BESTELLCODE: BESTELLCODE: BESTELLCODE: Grafik&Drucker 
TIPS& TRICKS Abenteuerspiele Spiele 





ss... 


Für Vermerke des Absenders 


DM Pf | für Postgirokonto Nr. Pa a > 
14 199-803 f 


Absender 
der Zahlkarte ____ | 


PGiroA 








Postgirokonto Nr. des Absenders Postgirokonto Nr. des Absenders 





Postgiroteilnehmer Postgirokonto Nr. des Absenders 
























Die stark umrandeten Felder sind nur auszufüllen 
wenn ein Postgirokontoinhaber das Formblatt als 
Postüberweisung verwendet (Erläuterung siehe Rückseite) 


_ Empfängerabschnitt Zahlkarte/Postüberweisung 


ıür maschinelle Beschriftung 


Einlieferungsschein/Lastschriftzettel 































DM DM DM Pf 
für Postgirokonto Nr. ! für Postgirokonto Nr Postgiroamt 
14 199-803 Postgirokonto Nr T 
Lieferanschrift und Absender 9 14 199-803 München 
der Zahlkarte 1 A 199-803 
für Markt&Tech für 
i nik Postgiroamt Markt& lechnik 
. Verlag Aktiengesellschaft Verlag Aktiengesellschaft 

7 München Hans-Pinsel-Str. 2 
ar „ 8013 Haar in 8013 Haar 
Verwendungszweck Ausstellungsdatum Unterschrift 
64er 


Leser-Service 
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64er-online.de 
64er-online.net 


Für alle Leser, die »64’er« 
regelmäßig kaufen, sammeln oder 
im Abonnement beziehen, gibt es 
jetzt ein interessantes Service- 
Angebot: Die 64’er-Sammelbox! 


/ | | Mit dieser Sammelbox bringen 
- - Sie nicht nur Ordnung in Ihre 
F | wertvollen Hefte, sondern schaffen 
| sich gleichzeitig ein interessantes 
und attraktives Nachschlagewerk. 


Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe- 
wahrungsmittel: Sie eignet sich 
| | EillelsWulziaige)ac-tei-yate IE MEL-TTeJıT 11.0 
ER | RL für Freunde und Bekannte zu 
E= ENCHWANTERTTSIE 
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Für Mitteilungen an den Empfänger 


Bestell-Nr. 


Sammelbox »Ö4d'er« 


Bestellung Leser-Service 


Sonderheft .......... 
Zzgl. einm, Versandkostenpauschale (DM 3,-) 


Vorderseite übertragen 


Summe bitte auf 
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VORSCHAU 12/85 Die nächste Ausgabe erscheint am 15. November 


Wie bedient man einen 
- Assembler 


Die Programmierung in Ma- 
schinensprache ist für diejeni- 
gen, die den Assemblerkurs ver- 
folgt haben, hoffentlich keine Al- 
chımie mehr. Zum Programmie- 
ren von Maschinenroutinen ver- 
wendet man meist einen Ässem- 
bler, ein spezielles Programm. 
Wie aber ein solcher Assembler 
bedient wird, ist für viele ein 
Buch mit sieben Siegeln. Am Bei- 
spiel »Hypra-Ass« zeigen wir be- 
sonders dem Änfänger, wie man 
mit einem solchen Programm um- 
geht. Es werden Begriffe erklärt 
wie Opcodes, Pseudo-Opcodes, 
Makros und eben alles andere, 
wo häufig Schwierigkeiten bei 
der Arbeit mit einem Assembler 
auftreten. 


Neues von der CFA 


Vom 18,10 bis 20.1 fand die Com- 
modore-Fachauüustellung statt. 
Hier zeigten internationale Aus- 
steller, was es Neuesrund um die 
Commodore-Computer gab. Ein 
erster Messebericht gibt Ihnen 
Auskunft über die heißeste Soft- 
ware und die neueste Hardware. 


Druckervergleich: 
9 oder 18 Nadeln? 


Kann der NEC P2 unsere neue 
Referenz (Epson FX-85) schla- 
gen? Lesen Sie, wie sich mit 13 Na- 
delndruckenläßt. Auch derneue 
Taxan beweist was er kann. Und 
das ıst nicht wenig. Der dritte 
Drucker, den wir Ihnen vorstel- 
len, glänzt durch seine Ge- 
schwindigkeit: 180 Zeichen pro 
Sekunde Sein Name: Fujitsu 
DPMOGS. Seien Sie gespannt. 


Lernvorteil 


Soft-Learning heißt ein neues 
computergestütztes Lernverfah- 
ren für Sprachen. Durch konse- 
quente Änwendung neusster Er- 
kenntnisse der Lernforschung 
lassen sich mitunter erstaunliche 
Ergebnisse erzielen. Einer unse- 
rer Redakteure unterzieht sich ei- 
nem Praxistest. 


180 ISur 





Der 64’er-Eprommer 


Mit unserer Bauanleitung können 
sie sich selbst, mit wenig Geld, ei- 
nen EPROM-Brenner bauen. Er be- 
sitzt durchaus die Leistungen, die 
man von einem professionellen Ge- 
räterwarten kann. Ein Modul-Gene- 
rator erleichtert Ihnen die Program- 
mierung von EPROMes. Jetzt können 
Sie auch Basic-Programme schnell 
von EPROMGs laden. 


Monitore 


Wie funktionieren 
Monitore? Wir zeigen 
Ihnen, was die ver- 
schiedenen Typen und 
Anschlußnormen aus- 
zeichnet. Sie erfahren, 
auf welche Daten Sie 
beim Kauf unbedingt 
achten sollten und wie 
Sie die verschiedenen 
Geräte anden C 64 und 
C 128 anschließen. Der 
erste Teil der Markt- 
übersicht »Monitore« 
hilft dabeı. 


Hilfen für 
Adventures 


Kommen Sıe mit Ad- 
ventures nicht klar? Auf 
fünf Seiten bekommen 
Sie die Lösungen für 
bekannte und brandak- 
tuelle Adventures. So- 
gar die Geheimnisse 
des 85000-Mark-Ad- 
ventures »Eureka« wer- 
den gelüftet. Lernen 
Sie den Gewinner ken- 
nen. Mehr darüber ın 
der nächsten Ausgabe. 


Schachspiele 


Schachspiele sind 
immer noch aktuell, 
stellen sie doch große 
Anforderungen an den 
Programmierer. Hier 
geht es um das Erfin- 
den von Algorithmen. 
Sie können in einem 
Grundlagenartikel le- 
sen, worauf es beı 
Schachprogrammen 
ankommt. Ein  Ver- 
gleichstest ermittelt das 
stärkste Schachpro- 

gramm. 


Außerdem ... 


— Hyperscreen. Selbst der Bild- 
schirmrahmen ist nicht vor Sprites sı- 
cher 

— Computer für Behinderte 

— 50 gehts: Wie man EPROMs 
brennt 

— Anwendung des Monats: Berech- 
nungen in der Chemie 

— .„. und wieder viele Tips und 
Tricks für C 64 und C 128. 
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